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ABSTRACT 


The dynamics and attitude and shape control of a large thin flexible 
square platform in orbit are studied. Attitude and shape control is assumed 
to result from actuators placed perpendicular to the main surface and one 
edge and their effect on the rigid body and elastic modes is modelled to 
first order. The equations c. notion are linearized about three different 
nominal orient? -dons: (1) the platform following the local vertical with 
its major surface perpendicular to the orbital plane; (2) the platform 
following the local horizontal with its najor surface normal to the local 
vertical; and (3) the platform following the local vertical with its najor 
surface perpendicular to the orbit nornal. The stability of the uncontrolled 
system is investigated analytically. Once controllability is established 
for a set of actuator locations, control law development is based on de- 
coupling, pole placement, and linear optimal control theory. Frequencies 
and elastic modal shape functions are obtained using a finite element 
computer algorithm and two different approximate analytical methods and 
the results of the three methods compared. 
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I. INTRODUCTION 


The present grant represents a continuation of the effort attempted 
in the previous grant years (May 1977 - May 1979) and reported in Refs. 
1-4*. Attitude control techniques for the pointing and stabilization 
of very large, inherently fle>dble spacecraft systems are being investi- 
gated in this research. First the attitude dynamics and control of a 
long, homogeneous flexible beam whose center of mass is assumed to 
follow a circular orbit have been treated * . In the initial phase, 
first-order effects of gravity-gradient were included, whereas external 
perturbations and related orbital station keeping maneuvers were ignored. 
Three mathematical models describing the system's rotations and deflec- 
tions within the orbital plane have been developed — one model, which 
treats the beam as a number of discretized mass particles connected by 
massless links , and two continuum-type models The natural (uncon- 
trolled) dynamics of this system have been simulated. The concept of 
distributed modal control 1 , which provides a means for controlling a 
particular system mode independently of all other inodes, has been examined, 
along with other types of control laws including an application of optinal 
control theory and the use of decoupling techniques . ^ The effect of 
varying the number of modes in our model as well as the number and location 
of control devices has been examined, analytically, where possible, and 
numerically for general cases. 3 


*For references cited in this report please see list of references ater 
each chapter. 
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Towards the end of the second grant year the three dimensional 
model of a free- free plat* in orbit was developed and a limited num- 
ber of computer simulations of the uncontrolled dynamics in response 
to initial perturbations about a specific equilibrium orientation were 
performed. Frequency values associated with the basic structural modes 
of a square plate were obtained from energy considerations based on 
approximate expressions developed by Warburton. 5 It was suggested at 
the final oral grant presentation that a comparison with results obtained 
using finite element methods and/or other analytical approaches should be 
examined to guarantee accuracy, particularly for higher order modes. 

With this background and in accordance with our proposal to NASA 
dated January 25, 1979®, a plan of study was developed and has been ex- 
tended to include the current grant year as outlined in Table I. The 
items indicated by a check nark have been completed by the end of the 
third grant year while those indicated by "IP” are currently in progress. 

In this'pa VT t of the 1979-80 final report (Part A) the control of an 
orbiting square shaped platform based on the continuum model of Ref, 2 
with point actuators taken at selected locations on the platform surfaces 
is examined . A paper to be presented at the following conference forms the 
basis of Chapter II: 

1980 AIAA/AAS Astrodynanri.es Conference, Danvers, Mass. , 

Aug. 11-13, 1980 (only the contributions by A.S.S.R. Reddy, 

P.M, Bainum, and R. Krishna are included here). 

In Chapter III the results of two approximate analytical methods for 
predicting modal frequencies and modal shape functions are compared with 
the results obtained using a finite element computer algorithm using the 
homogeneous plate as an example. 
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TABLE I - STUDY PLAN 1977-1980 
1. MODEL DEVELOPMENT 

V A. Development of General Form of 3-Dimensicnal Equations for 
A Flexible Struct u re - Given the Model Shape Functions 

B. Development of 3-Dimensional Equations of a Thin Homogenous 
lYme-Free Beam 

V (1). The Case of No Longitudinal Vibrations: i.e. 0 

V (2). The Case of No Y aw: i.e. V * 0 

C. Determination of Modal Shape Functions and Freque n c ie s for 
Different Structural Models 

Circular Homogenous Membrane 

Rectangular Homogenous Membrane 

Rectangular Homogenous Plate (and Square Plate) 

Circular '-Homogenous Plate 

% 

Shallow Spherical Shell Structure 

D. Implemantation of One or More of the Structural Models for 
Digital Simulation 

>/ (1). Rectangular Homogenous Plate 

/ (2). Thin-Homogenous Beam with Stabilizing Dumbbell (Local 
Horizontal Orientation) 

(3). Square Plate with Stabilizing Dumbbell (Local 
Horizontal Orientation) 

/ (4). Shallow Spherical Shell Structure with Stabilizing 
Dumbbell 

/ (5). Circular Homogenous Plate with Stabilizing Dumbbell 
IP E. Provide Equations in a Form Suitable for Control Implementation 
/ - Items completed 
IP - Items in progress 

V A'iK lb 
■ QUALITY 


y (i). 
y (2). 

(3). 
y/ (4). 

V cs). 


2. CONTROL CONCEPTS - LARGE FLEXIBLE SPACE STRUCTURES 


A. Modal Development 

y (1) . Concentrated on continuum model of large flesdble beta 
in orbit (Santini and Howard University Formulation) 

y (2). Modelled control devices as point actuators at specific 
locations along the beam 

(3). Modelling of c ontrol devices as point or distributed 
actuators far other large flexible systems 

. / (a) -Rectangular Homogenous Plate 

(b) Circular Homogenous Plate 

(c) Shallow Spherical Shell Structure 

B. Conttol Concepts: 

t'L ial Control - considered with discretized beam model 
during 1977-78 

For independent control of all nodes (N) retained in the 
model, the number of actuators (P) must be equal to N(P*N) 

Establish relationship between P and N according to 
controllability requirements (applications of theorems 
developed by Bales) P can be less than N. (Applied to 
continuum beam model 1978-79) . 

Selection of control system gains - considers both position 
and rate feedback. (Applied to continuim beam model 1978-79) 

a. Develop criteria for complete decoupling of linearized 
c on trolled equations using the fundamental theorem of 
a system of N linear equations and P unknowns 

For unique solution of gains, P=N consistent with modal 
control; for non unique solution P<N 

b. Application of linear regulator problem to the original 
linearized and/or transformed equations 

2? (4) Application of control concepts to more complex structures 

IP C. Modelling of Sensors-the Problem of Observability 

D. Treatment of Observation and Control Spillover 

/ Items completed 
I? Items in progress 
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y (i). 


y ( 2 ). 


y (3). 

✓ 


/ 


' l S’ 
l; Y 


Ref ei'e.nces are given separately for each chapter; symbols used 
in Chapter II are defined eithex in the text or in Appendix A of 
Chapter II, while symbols used in Chapter III are defined in the text 
where used. 

Chapter IV describes general conclusions together with recoranendations 
for future work. 

Part B of this report, under separate cover, concentrates on the 
mathematical modelling and analysis of more complex structures such as 
beams and plates with connected gimballed dumbbells to provide gravita- 
tional stability about the local horizontal orientation, and also the 
analysis of the dynamics of a shallow shell-type structure in orbit. 


1.1 References - Introduction 


1. Bainum P.M. and Sellappan, R. , "Ihe Dynamics and Control of Large 

Flexible Space Structures," Final Report NASA Grant: NSG-1414, 

Part A: Discrete Model and Modal Control, Howard University, 

May 1978. 

2. Bainum Peter M. , Kunar, V.K. , and James, Paul K., "The Dynamics 
and Control of Large Flexible Space Structures," Final Report, 

NASA Grant*. NSG-1414, Part B: Development of Continuum Model 

and Computer Simulation, Howard University, May 1978. 

3. Bainum, P.M. and Reddy, A.S.S.R. , "The Dynamics and Control of 

Large Space Structures II," Final Report, NASA Grant NSG-1414, 
Suppl. 1, Part A: Shape and Orientation Control Using Point 

Actuators, Hcward University, June 1979. 

4. Bainum, P.M. , James P.K. , Krishna, R. , and Kumar, V.K,, "The 

Dynamics and Control of Large Flexible Space Structures II" Final 
Report, NASA Grant NSG-1414, Suppl. 1., Part B: Model Development 

and Computer Simulation, Howard University, June 1979. 

5. Warburton, G.B., "The Vibration of Rectangular Plates," Proc. 
Institute of Mechanical Engineers, Vol. 168, No. 12, 1954, pp. 371- 
394. 

6. Bainum, P.M., "Proposal for Research Grant on: Ihe Dynamics and 

Control of Large Flexible Space Structures-III," Hcward University, 
(Submitted to NASA), Jan. 25, 1979. 
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II. CONTROL OFA LARGE FLEXIBLE PLA TE IN O RBIT 


ORIGINAL PAGE IS 
OF POOR QU ALI TY 


Tbe dynamics aad atdtude cad a tup* control 
of i large this IladUi platform la orbit act 
studied. eedcude and shape control to assumed to 
result from actuators placed porpsndlrtwlor to eba 
rmla surface aad oaa edge aad chair effect oa eha 
rigid body aad a) astir aodaa la noddled to flroc 
order, the equations of aotloa ore 
about nominal orlaoeaeloaa obora the uadaf oraad 
plate followa aiehar the local vertical or local 
borloontal. The acablllry of the uacaorrollad 
eyacaa la investigated aaalytlcally. Ooea eon- 
trollablUsy la catabllahod for a act of actuator 
locations, control lav development la baaad oa 
pole placement, decoupling, aad linear optimal 
control theory. 


1. Introduction 

Large, flexible opaeaeraft aye fa here baaa 
p ro pooe d for future applications la widespread 
rn—inl carlnaa. clectroale orbltally based nail 
systems, aad as possible collectors of solar 
energy for transmittal to earth-based receiving 
stations.-* 2 Per such nlasleas the else of tbs 
orbiting system nay be several class larger than 
chat of the earth-based receiving stadoa(a). and 
both orientation aad shape control of the orbiting 
systaa will be required. 

In order to gain Insight Into tbs dynaalcs 
of ouch a large flexible eyoeaa tbs equations 
of notion of a long, flatible f re e f ree bean la 
orbit wore developed 2 using a slightly modified 
version of the gaaesal f emulation of the dynanlcs 
of a general flexible orbiting body foranlatad by 
Sandal. 4 This specific csanple considered only 
the laplaaa rotations aad dafotnatlona of the n* 
controlled baaa aad dcaoaseratod the possibility „ 
of instability for vary snail valuas of the ratio 
of eha fnadaaaatal flenural fmquaney to the orbit 
angular vulodcy. An related papers crested the 
noddling of polae actuators loca t ed at specific 
points along the bean /1th the associated criteria 
for controllability 2 and also the problaa of se- 
lecting control low feedback galas based oa de- 
coupling techniques aad application of the linear 
regulator problem. 6 also Included wore mswrlrsl 
results showing the effects of control spillover 
on the uncontrolled nodes when the aaaber of con- 
trollers is less than the euabar of sodas la the 
nodal, aad the offsets of inaccurate know) dge of 


tbs control coefficients which lead to 

errors in the calculated feedback galas. 6 


la the present paper the too dimensional aodd 
mnaldand la lafa. 3,5, aad 6 la en t aa d ad to throe 
rtlnanslrmr by developing eha equations of notion 
for a large flexible rectangular pleee (platform) 
la orbit. These aquations Include throe rigid body 
equations plus tbe generic node elastic aquations. 



la tbs present paper throe different nominal 
orientations of tbs platform la orble are oas«ad 
about which attitude sad shape control era to be 
achieved. Those ora* 


Cass (1) tbs platform following the local ver- 
tical with lea larger surface perpen- 
dicular co the plana of eha orble 
(Tig. la)s 

Casa (11) the platform following eba local hod- 
soaeal with its larger surface ares 
normal to eba local vertical (Fig. lb); 

Case (111) the platform following the local ver- 
tical with its larger surface perpe n - 
dicular to the orbit notmal (Fig. le) • 


• Fron tbe general formulation of kefs. 3 aad 4, 
the equations of moelon of the structure are ob- 
tained t 


t. locational Iquadoao of Modont 









fl 

x y 


(i) 



Vy + -r 



* 


Using Euler eagles to represent dgld body orien- 
tations reladve to the local vardeal (horizontal) 
system, the transformation from Euler — gular rates 
to body rates Is given by: 


• i *► (b+» c ) slab 

uiy • (0+w e )eoapcosp ♦ pslap (2) 

• Peosp - (04w> e ) slnocose 


(Rote: Syabols used are defined la appendix l.) 
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®1*, ®*y, Sl, r«pr«a«&t th. ,rovieyfradlo&t 
corquo* About ebo principal undofotMd body out 
•ad eaa bo evaluated ui 


*1, • 3u|(I f »Iy) <-ebobc*+obe6) (ob*oebo«*o6) 

®»y • 3ui|(I K -I s )(ooMc**«M»)cee* (3) 


3w£(I y -I,) (-c.Mcfrv.,ae)cec» 


vbor. o( ) • oia( ) oad e( ) ■ eoa( ). 
1. Ooaoric Mod* Squotioaa 


.Tbo foaorlc aodol aquation* aay ba obtolaod 
for oaeb of tbo f.hroa nominal oriantatlon* egn- 


of tba aodol amplitude (*?)' 


sldorod in tor 
for Cooo (1) 

ly ♦ A, • 

aboro 


(4a) 


M • « 2 [3(a 2 ,a 2 .e 2 0+c 2 W 2 *+2a,a4c*c,ae)-l] 

SZ 6 


Pot Coaa (11) 

A r ^-(w^hu 2 )-*^] A r • 
vb*' a 


(4b) 


« 2 L3e 2 6c 2 ,-1] 
6 


Tor Coaa (ill) 


\ ♦ C«|-(^)-« yy ] A r - gr; 

vtert 


(4c) 


Myy • « 2 ^(c^e^^e+e^s^-Zcpadepee)-!] 


C. Linear lection 


I -I. 


V C -V 1 -** 


r-I_ 


(- 


. I.-I. I -I. 

♦ • w * [ -g- y +l] +4ttJ (“| * 

el, cl. 


■)* 
- >♦ 


^■ + r (5) 

T t X E 


1-1. T C. 
'# - 3m 2 ( 11 "r” )• + i + i 

y y y 


for the present analysis, the platform is sssumsd 
to bo square, thin and homogeneous, such that the 


following relationships 
of inertia are valid: 


g the principal 


its 


(i): 


I m i and X 

A x y z 


21- • 21. 


Case (11) : 2*1 and Z • 22 *22 

V**/ z m X “ y ~ z 


(«) 


Cass (ill): 1 % » 2^ and Z y • 22^ 


2Z_ 


for small amplitude angles the generic mode aqua* 
cions bee 


( 1 ): 


V^r 


£ /M 
r r 


Cooo (11): A r +(w 2 -3«|)A r • E f /K r 


(7) 


Cooo (111) i i r +(* 2 -iir|)A r • V*r 
B. Modelling of folat Actuator* 


for an actuator uhleh coo ganarat* o force of 
tba typo 


f * tj+tyt+tj 


( 8 ) 


and placed at a location (x,y,c) , tba resultant con- 
trol torque is glean by 


I • Xxf 


(9) 


where X • xi+yj+tk describes the position of the 
actuator on the surf act (or edge) of the plate. 
Actuators can be placed perpendicular to tbs XX, 
TZ or XZ planes of the plate, so for an actuator 
whose foree axis is perpendicular to tbs XX plane 
tbs torque is given by (sines f m f • 0) 


T - y V-* r 3 


( 10 ) 


for an actuator whose fores axis is perpendicular 
to the TZ plane, the torque is given by (sines 

f y-V°> 


T» s: 




(id 


for an actuator perpendicular to tbs ZX plane, the 

torque is given by (since f • f • G). 

s a 


T • -*f y i4xfyk 


( 12 ) 

as |£h actuator on the 


lbs generic foree due P 
t£fe. nods is given by**’* 

Z r • //W r (x,y)k««(x-x 4l f-y t )f i (t)kdxdy 

• w r <V T i >f I (t> 


(13) 


91th the aesiHptlon of small amplitudes, the ro- 
tational aquations of motion given by Eq. (1) be- 


whsre W (x,y) is the rSll modal (spatial) function 


of the Informed plate with vibrations assiaed to^ 


occur along the Z direction, whose amplitudes 
assumed to be much smaller than a characteristic 
plate length. 


for n actuators placed on the XX plans of tbs 
plate with force axes normal to that deformed sur- 
face, the generic foree on t& mode is given by 
n 

(1A> 


! r * ^ 


where x. ,y. are the coordinates of the l£tl actuator. 
An actuator placed normal to the X,T plane won't 
produce a torque about tbs Z-aade; in order to ob- 
tain a direct torque about tbs Z-axis, actuators 
may have to be located on the other surfaces (edges) 
of the plate. 


E. Modelling of Distributed Actuators 


If the force is distributed along the surfaces 
of the plate, the force can be represented by 


7 •f x (x,y,z,t) i + f y (*,y,*,t)J 
+ f x (x,y,* f t)k 


(15) 


where the force components are now both spatially 
and tins dependent. 


1 - 2 - 


i 1 


•— *«> f .• >;.trt jt 


Tht torque due to such an actuator la given by 

T - 1*7 (16) 

Tht total torque is given by 

T - /(tot?) dxdydz (17) 

v 

Using aeries expenalona end separation of var- 
iables between spatially and tine dependent func- 
tions, one can very accurately represent (e.g. for 
the x component), 

L 

*-<*.*. *.t) - I f (x.y.x), ( t ) (18) 

* W *» *» 

St* latagral for eha corqua la than glass by 

II M • 

T - /C(I yf (x,y,*)g (t)-t f (x.y,xV(t))l 
1-1 *1 *1 wl T a % 

l W 

•KI xf (x,y,z)g (t)-l xf. (x.y.i)g (t))j 
*-l *t *» l-l *l *t 

B t 

4<^ 1 xf y ^(x.y,*)* y ^Cc)- R £ 1 f 1 ^(x.y,r)g^(e))k3X 

dxdydx (19) 


<" - t <i x -i y +i s ) /« c i x v«h[ d K -i y ) n t h («) 

6" - 36 (23) 

The generic mode equations become: 

2" - -(i> T /« c ) 2 Z r (24) 

The pitch and the generic mode equations ere de- 
coupled fron roll and yaw, Ths pitch end generic 
modes exhibit simple harmonic motions. After sub- , 
stltutlng Inertia values into the roll end yew 
equations, 

*" - -(2/w c >4 , 4* (25) 

♦" - f/m e (26) 

2ha cbaraecarlatle aquation for tho ayataa (25) 
and (26) la. ,a ( ,2_ 1+2/ „2 ) . 0 

It can be seen chat the roll end yew motion has a 
double pole at the origin end thus the uncontrolled 
roll/ysv motion is unstable. The analytical solu- 
tion is obtained using Laplace transform techniques* 
A typical response for Initial perturbations in 
both roll and yav rate(s) is shown in Fig. 2. 


The resulting generic force is then obtained in 
the same manner as in Eq, (13) with the result , 

E r • /[^(x.y)^^ i % (x,y,z)g 2 (t)ldxdydx (20) 

\ ^ Uncontrolled Mg »g*<«»-M mnarical r«»wpie 

The platform is assumed to have the following 
physical properties: 

a ■ 100 a. (side of square plate) 

M - 276800kg 

Minimum Moment of Inertia - 2. 354x10 7 kg-n? 

Maximum Moment of Inertia • 4. 7088x10 7 kg-m* 

For an assumed orbital altitude of 250 a.ml. 
(circular) 

*> e • 1.25x10** rad /sec. 

The modal frequencies of the elastic modes have 
been obtained using a finite element computer 
algorithm. 7 For the first thras flexible modes: 

- 2.0931947xl0" 2 rad/aac 

- 3.0404741xl0" 2 rad/aac 

u 3 - 3. 90 88122x10" 2 rad/aac 

The uncontrolled motion of the linear system 
through small amplitude deviations with respect 
to each of the three nominal orientations will now 
be considered. 

Case(l) : I x «I y , I # « 21^ - 21 

The rotational equations of motion and the 
generic modal equations are non-dimensioaalited 
by the orbital period and the length variable 
(t - w c u, Z r • A f /a, d4/dt,etc) 

♦ " - l (I y -W /“ C I X 34 ’ -[ (l y “I r ) /!,]» (21) 


Casa (11) : I y - and Z x - 2I y 

fits rocadonal aquations of notion ara 


*" - -U/« c >6’ (27) 

♦" - O/u-)*’-** (28) 

8" - 36 (29) 

The gasorlc mode aquations can ba raprasantad by. 

r r * " C(“ r /“ c ) 2 “332 r (30) 

From Eq. (29) the pitch amplitude Increases expo- 


nentially in response to an initial displacement, 
whereas from Eq. (30), for » r /w >0 the generic 
modal amplitudes exhibit simplenarmonic motion. 

The characteristic equation for the combined 
roll/yaw motion is: 

s 2 (a 2 -4+2/w 2 ) » 0 . (31) 

• c 

The roll/ysv motion is characterised by s double 
pole at the origin and is thus unstable. 

Case (ill) : I • I and I - 21 • 21. 

x z y * \ z 

The rotational equations of motion are 

6** • -4 a e fl • 0 (32) 

while the generic mode equations can be expressed 
by. 

Z” - - [U r /u c ) 2 -l3Z T (33) 

In this case, roll, yaw, pitch end the generic modes 
are decoupled from each other. The generic modes, 
roll and yav exhibit simple harmonic motion, while 
the pitch amplitude increases linearly with time 
for a given initial pitch rata. 


JL 
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Controlled Motion 


(«) Dacouplint of Orl 


Thft rotational equations of notion u r« eon* 
blood with thft generic no del ftq urn t Ions using the 
nondlnonolooftl orbit*: tine end length verlablea 
and then recast into conventional scat* apace lorn : 


X' • AX ♦ B0 

where the otatft vector* X. la defined as 


X - (WX3 
end _ _ ... , 


“ “ 3* 1+3' * V*+f 

*2 • *; *3 - 6; x 1+ . * 

i • 1, 2, .... n generic nod^s 
*to+** ♦'* *o+5 ‘ s *o** •' 


W 
" V* s 


*B^* 2 i 


i» 1 • 


For the ejcanplea to be considered la this paper 
It la aseiaed that the spates can be nodelled by 
three rigid body rotational nodes and the first 
threft generic (flexible) nodes. 

Die general A natrlx 


_o « !_ 

t I 3 

6x6 

^diagonal 

0 *7S 

A 1 

*79° - 

6x6 | 

1 

i 

0 0 ... 


The non-sero and non-uaity elenanta appearing in 
A are; 

*7,1 - ‘W ". 1 *1,2 * -<yv'v 

*9,3 * 3 <W' 1 , • *U,4* -W ! ’ 

*U4* <W 2 I 

*b,7 - <wv'-.v *7,8* »,-yw. 

The general B natrlx: 


• PH 

ox6j 


where the lower part of the B natrlx depends on 
actuator locations. 

Control law Selection 

Control lava are developed using 3 different 
techniques. They are: (a) decoupling of the orig- 

inal state equations using state variable feedback; 
(b) stabilizing the system by clustering the poles 
on a line parallel to the imaginary axis and in the 
negative s -plane using the control law of the type 
U • -XX; (c) applying the linear regular theory to 
the original system equations; * 


The equations of motion of the platform can 
be written as 

X • AX4CX+BC (36) 

X • (s 1 ,x 2 ...x jrf3 ) 

After selecting U • we can rewrite the 

controlled motion equations as 

X • (A«X r )i^(04«X |> )x (37) 

X» and Kp are evaluated such that (A4BX ) and 
(OfBKp) are dlagooalised and thus yield required 
damping and frequency of the controlled modes. The 
number of modes must be equal to the mmber of actu- 
ators to avoid the use of pseudo-inverse matrices. 

Two aata of actuator locations have been as- 
sumed for each of the three nomine! orientations 
previously described. For ell orientations* (D- 
(111) , It la assumed that five actuators are lo- 
cated on the larger ettrface (with force axis normal 
to It) and a sixth actuator along an edge. The 
body coordinate of the six actuators era taken as 


Cass (1) 

First Location a • 100m 

f x <-*/6,-*/6,0>s f a <*/«,-*/6,0); * 3 <-»/6,0,0) 

0,0); f 5 (-»/6,*/6,0){ £g(*/2 */6,0) 

Second Loudon « « 100 k 

£ x (-*/2,-*/2,0)j f 2 (x/2,-»/2,0); f 3 (-«/2,*/2,0> 

f 4 (*/2,*/2,0)j £j(-*/2,0,0,); * 6 (»/2,*/2,0) 

tea. (U) 

Time Location c • 100a 

£ x ( 0,-*/6,-*/6){ £j(0,-*/6,*/6) ; f 3 (0,0,-*/6) 
f A (0,0,»/6); £j(0,»/6,-»/6); £ 6 <0,*/6,*/2) 

Second Location a * 100m 

t x (0,-»/2,-*/2)j £ 2 (0,-*/2,*/2){ £ 3 (0,»/2,-*/2) 

^ 4 C0,*/2,*/2)j £ s (0,0,-V2){ f 6 (0,*/2,*/2) 

Casa (111) 

First Location a • 100m 

« x (-»/6,0,-*/6j £ 2 (-*/6,0,*/6), £ 3 <0 t 0 f - R /6> 

£ 4 (0,0,*/6)s £ s (*/6,0,-V6)5 £ 6 (»/6,0,»/2) 

Second Location a • 100m 

0 f -*/2); f 2 (-*/2*0 # */2); f 3 (V2,0 t -*/2) 

£ 4 ( a /2 # 0^/2); £ 5 (0 f 0 # -*/2); f 6 (*/2 t 0 «/2) 

Actuator positions for the two different eets of 
locetlons arc illustrated In Fig. 3. Tha system 
A and B starriest corresponding to different com* 
binatione of the three platform orientations and 
thft two ftftts of aetuator location are listed as 
follows. 



Cut (1) Platform Following Local Vortical 
With Major Surface Normal to tha Orbit Plana. 


Caao (111) Major Surface In Orbit Plana 


P • 


tha non sore a lament a of tha A matrix are: 

*i*i46* X * or 1 * I* *..6; A^ g • 600; 

* 6.7 * - 16005 * 8,2 * li S .3 " * 35 
Ajo f4 • - 277 . 414 , 4 n>J - - 588 . 647 ; 

A^2 ^ ■ -976*644 


(Uasr Nrt »f 1 ami) 


0.0 

0.0 

0.0 

0.0 

0.0 

4.22949 

-0.4339 

<•4929 

0.0 

0.0 

0.4120 

0.0 

0.4929 

<4.4929 

0.4929 

4.4929 

0.4929 

0.0 

40.003 X 29 

4*003121 

0.0 

0.0 

4.00024 

0.0 

0.0 

0.0 

4 .009004 

4 .00 9004 

0.0 

0.0 

-0.00 S 799 

4. OOS 7 I 9 -0.0123 

4.0119 

4. C 097 I 9 

0.0 


-if yi (Uar Nr af I aoii ) 


0 0 

0 

0 

0 

4.9799 

<1.1392 -1.3392 

1*3992 

1.3992 

0 

0.0 

1.3992 -1.3992 

1.3992 

-1.3992 

1*3992 

0.0 

0.023 4.023 

4.023 

0*023 

0.0 

0.0 

0.0 0.0 

0.0 

0.0 

4*029 

0.0 

0.023 0.023 

6.023 

0.023 

0.023 

0.0 


Caaa (11) Platform Along Local Boris octal 

Tha clamant a of tha A matrix that are dif- 
ferent from Caaa (11) are: 

* 7 , 1 * 45 * 7,8 * X60 ° 5 * 8*2 * °* * 8*7 * -® 005 
*9,3 * 3 ’ 


J 

laaaciR I (lav Nr •( 2 earns ) 



0.4992 

0.4929 

ox 

1.0 

4.4929 

0.0 

. 0.0 

0.0 

0.0 

0.0*^ 

0.0 

0.22945 

6 4.4329 

0.4929 

4.4929 

0.4929 

4.4527 

0.0 

1 0 .003 X 39 

4.002129 

0.0 

0.0 

4.009121 

0.0 

0.0 

0.0 

4 .009024 

- 0.0030*4 

0.0 

0.0 

4.001719 

l 

4.002799 

4.0239 

4.0139 

4.00*799 

0.0 

1 

m 

1M 

Idas n (Lw 

nr fart af $ 

tarns ) 


1 1.3992 1.3992 

•1.3992 -1.3992 0.0 

0.0 


0.0 

0.0 

0.0 0, 

.0 0.0 

0.9799 



•1. W 2 JL . J 992 -1.3992 
0.023 -0.023 *0.023 

0 0.0 0.0 

0.023 0.023 0.023 


1*1*92 -1.3992 
0.023 0.0 


The elements of the A matrix that are dif- 
ferent from Caaa (11) are: 

*7,1 " “* s *7,8 " °‘ *8,2 * - 1{ *8.7 * °» 

* 9,3 " °* 



llSTlS 

1 < l*mr 

hn«l Sean 

IS ) 


- w .4329 

4.4929 

0.0 

0.0 

0.4929 

0.0 

0.427 

4.4929 

4.4919 

4 .4929 

0.4929 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

442 

0.003129 

4.009139 

0.0 

0.0 

4.009139 

0.0 

0.0 

0.0 

4 .0090944 

4 .0090244 

0.0 

0.0 

4. 001719 

4 .009729 

4.0139 

4.0335 

4400729 

0.0 


u 

aettsa XX 

( Wasr'faR mt 1 asms ) 

-1.2992 -1.3992 

1.2993 

1.3992 

0.0 0.0 

1.3992 -1.9992 

1.3992 

-1.3992 

1.3992 0.0 

0.0 0.0 

0.0 

0.0 

0.0 4.9799 

0.029 4.023 

4.029 

0.029 

0.0 0.0 

0.0 0.0 

0.0 

0.0 

4423 0.0 

0.023 0.023 

0.029 

0.023 

0.023 0.0 


For all combinations considered above the gains 
are selected so as to produce 20X of critical darn- 
ing in each of tha rigid body modes and the first 
generic mode* end 102 of critical damping In the 
second end third generic modes. In ordar to pro- 
vide a battar transient response la the lamer fre- 
quency fundamental elastic mods* tha parcaatage of 
critical damping Is sslsctsd to he twice that In 
the remaining flexible modes. The time response of 
the rigid body modes end the generic nodal axpli- 
tudas for all combinations considered end for equal 
Initial position displacements in all components 
of the state is Illustrated in Fig. 4a. 

As an example of the time history of ths re- 
quired control forces. Fig. 4b. shows such a tins 
response for the exterior (II nd) location of tha 
actuatore with tha platform nominally following 
the local vertical and cbe major surface area of 
the platform In tha orbital plana. A complete 
eiMerj of the marl min force amplitudes required 
for all combinations of actuator locations and 
platform orientations is given in table 1* In 
interpreting the results of table I* It should be 
pointed out that* la the process of achieving both 
orientation and shape control* the maTlmiim forcs(s) 
required of any actuator will vary with both the 
moment arm about the principal body axes and the 
value of the modal shape function at the particular 
actuator location for all modes contained within 
the mathematical modal. 

(b) Stabilizing the Svetan by Foie due taring 

the equations of motion of ths platform whan 
recast In etats apace format can be written as 

i • AX+BU (38) * I «► 2(n+3)xl 


VO'lh- 


table X Hm-i— fotom Amplitudes (Newtons) tor Different Combinations of Cum with Actuator Locations 
Location 1 (interior) Location IX (anterior) 


Force 

Case 1 

Case 11 

Case 111 

Cu. 1 

Case 11 

Case 111 



-807. g 

270.63 

270.6 

37.6 

62.56 

47,4 


£ 2 

270.0 

136.2 

-133.3 

28.19 

26.20 

-17.2 _ 

— — • Indicates 

* j 


387,3 

-425.0 

-65.89 

-49.5 

30.0 

meximim 


327. 9 

195.6 

163.7 

17.10 

-30.90 

25.08 

level of 
control 

* & 

489.09 

-253.3 

153.0 

-44.6 

-44.67 

-44.67 

force re- 

9 

*6 

-264.58 

-272.0 

4.4 

88.16 

-88.06 

1.47 

quired for 

each case. 


The control, V • «C la aalactad by using a digi- 
tal computer algorithm 6 ouch that (A-BK) has the 
required Identical negative real part in each of 
its eigenvalues . Although the nuwbar of actuator* 
can be leas than the nuwbar of nodes (one half of 
the dimensionality of the state vector), a limi- 
tation of this algorithm la that the gains are 
aalactad such that all of tha closed-loop poles 
Us on a line parallel to the imaginary axle. 
However this algorithm la useful whan It la impor- 
tant that each node in the system satisfy sows 
minima* damping characteristic*. 

As an example of this technique we consider 
tha system with four actuators and six modes where 
control about the first orientation (Case 1) la 
desired. Three of the actuator* are assumed to 
provide forces perpendicular to tha major surface 
with tha remaining actuator thrusting normal to an 
adga. The actuator coordinates in tha body system 
(rig. la) ares f.(-*/6, -*/6 # 0>; f 2 <*/6,-*/6,0); 
f 3 (-a/6,0,0); and A f 4 (V2**/6.0) whet* e - 100m. 

It is assumed that tha minimum damping requirement 
on the eyetem has a time constant of (13.33 min or 
(1/2*) dimensional orbital time). The control in- 
fluenee matrix is then calculated beeed on the 
assumed coordinates of the four actuators . The 
control U • -Q can ba calculated by the OHAC L S 
pole clustering algorithm. Baaed on these gains 
time histories of the required control forces are 
then obtained. 

The control influence matrix (lower pert), 
dosed loop poles, and maiimim force amplitudes 
required ere summarised as follows: 


B matrix (Lower Fart) 



’o.o 

0.0 

0.0 

-0.22645 

-0.4529 

-0.4529 

0.0 

0.0 

0.4529 

-0.4529 

0.0 

0.0 

0.003126 

-0.003126 

0.0 

0.0 

0.0 

0.0 

-0.0030844 

0.0 

-0.008786 

-0.008786 

-0.0115 

0.0 


Closed Loop Poles (Nondimens localized) 


The real part is -1.0 and the Imaginary parts 
are 40.000485, 40.993, 416.82, 424.26, 431.33 
and 41131.37, The Maximum force amplitudes 
(Newtons) are calculated as 


An incarnating comparison can now ba mads 
between this result and that shown In Table 1 for 
case (1) and tha first (Z) location of the six 
actuators considered there. It can be eeen that 
by using fewer actuators , appropriately placed, 
that better treaalent response characteristics can 
ba obtained with smaller — — force solitudes. 
However e disadvantage of this method is that soma 
of the controlled frequencies may be orders of 
migultudo greeter than the highest frequency of 
the uncont rolle d eyetem (for this example cohere 
1131 with *'976 • 31.24). Depending on the nature 
of the expected disturbance forces this result 
could be very undesirable. 

(c) Application of the Linear Beeulator Theory 

The control law, tJ • HOL, la selected such 
that the following performance index is minimised 

j - / (fQi+vhaoyit «») 

0 

where Q end E ere positive definite penalty 
matrlcaa. The steady state solution of the matrix 
Elccatl aquation of dlmanalon equal to tha state 
has to ba solved In order to evaluate the gain 
matrix. X. 

A computer algorithm within the OHACLS* soft- 
ware package is used to obtain tha gain matrices K 
for different combinations of the Q end E penalty 
matrices, lhle algorithm utilizes the Newton 
Haphson method of solving the Heattl equation. 

Xn the examples considered here four actuators ere 
assiaed with the system represented by three rigid 
body end three flexible modes. The locations of the 
fottr actuator* are taken to be the seme as in Sec- 
tion (b). and control about the first nominal ori- 
entation (1) is considered. 

The weighting matrix, Q, is selected beeed on 
the following considerations . For the example con- 
sidered here it can be seen from Eq. (34), (35) .and 
the B matrix that the uncontrolled system dynamics 
la either described by sets of uncoupled harmonic 
oscillators, or (in the cast of roll /vav motion) by 
a coupled two dimensional harmonic oscillator. The 
letter motion can be represented by 

pi] -P :] [ il 


|£j|- 78.5, |f 2 |- .36.4, |£j|- 169.5. «ad 
1*4 I- 35.3. 


where the eyetem oscillates at the frequency 
fi • *'ab. It is desired that tha control r< 
a ma rl mien " tra nsverse” angu lar rata, 

max/wj4ti£ » /ti4 (0)4vr (0) 
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so that a strategy for selecting the mlmmm nts of 
Q could b#9*10 


Q • j”) vb.r. t - 0 I /w l T . 


(41) 


vtsan tfa. control penalty aneslz la fixed. The 
remaining aquACiooi for an y of tha uncoupled osdl- 
la tor* cab Alto bo expressed by 



r 

r 1 

0 1 


L -v- e > ! °j 1 

1 — ■ 

M 


(42) 


In tbo 1AM format AA Eq. (39), and thus tho 
weights cab bo obtAlBod ia a similar maanar. 


3. Conclusions 

In this paper tho dynamics, stability, and 
control of on orbiting hoaogonoous , flexible 
• quart plotforv aro coos Ido rod. Throo dlfforont 
nominal orloncatlona of tho platform aro examined. 
Uhon tho platform la nominally following tho 
local vortical vriti* Its largor surf act perpendl- 
cular to tho orbital piano and also whan tho 
platform follows tha local horizontal with Its 
largar aurfaco normal to tha local vortical, It 
la soon that tha uncoocrollod roll/yaw motion la 
unstable. Tor tho coao where tho platform 
follows ths local vortical with its largo aur- 
facs perpendicular to tho orbit normal, tho un- 
controlled pitch motion la found to bo unstable. 


the Q matrix for tho case co n a i da r od hmro 
(control about nominal orientation (1) with Actu- 
ator locations as given In Section (b)) la ob t a ine d 
using tho relatione given by Ed* (41) and la a 
diagonal matrix, with tho following mlaaaatss 

Q l,l “ 4 * 324 » 109 * ^2,2 " »*339xi09. 

Q 3.3 ’ S.9 * 3.0xl0 4 , Q 4 4 - Q 10tX0 - 

2.774Wal0 6 , Q 5>5 “ Q u>u " 3.88647xl0 6 , 

V. - o u .u ' »•’— «.*. 07.7 - V« - 

2. 222x20 3 . 

The matrix la choamn as an Identity matrix. A 
parametric study ia done using various multlplaa 
of tho Qq (ChoQo) tt d So macrlcoa obtained above 
tfelehare plotted against the negative real part of 
tho least damped mode of tho controlled system In 
Pig. 5. All tha loci of the negative real part of 
tho least damped mode approach unity and no slgnl^ 
leant Improvement is observed by Increasing tho 
state penalty, Q-aQ 0 . any furthar. Thus one wishes 
to operate on tho horizontal lino between the 
points (1) and (2) . Ihe maximum amplitude of the 
foreea for R - I and R - 1000 1 aro calculated 
and plotted in Pig. 6. The dosed loop poleo of 
tho controlled system at points (1) and (2) aro 
virtually tho same and aro given as follows 
(near! 1 mens Iona lic«*d) : 


Throo different control techniques aro con- 
sidered for the selection of the control laws: 

s) Tha dacoupllag of tha original state equations 
using state variable feedback eliminate! the need 
of a transformation from tha original coordinataa 
to tha modal coordinataa and provide! a method of 
specifying directly the amount of damping and fre- 
quency of the individual componants of the state 
vector. However, with this technique the amber 
of actuators must be equal to the number of 
coordinates (modes) in the model, 

b) The pole placement algorithm (ORACLS) 
guarantees the over-ell required damping of the 
system and doaa not raatrlcc the number of actu- 
ators to be equal to the number of modes In the 
model. Ho waver , it la saen that tha closad-loop 
frequencies may be greatly increased when coo- 
pered to the open-loop values which may causa 
problems with externally Induced periodic exci- 
tations . 

c) Tha linear regulator theory can provide 
acceptable performance once the state and penalty 
ma ericas are properly selected, and the number of 
actuators can be less chan the number of modes in 
the model. Computer capacity and accuracy limit 
the number of modes thee can be considered. Here, 
too, an undesirable increase in the closed-loop 
frequencies may result in order to provide satis* 
factory responses with maximum allovabls fores 
amplitudes. 


-1.0043, -1.8+116.64, -2.16+424.20, -17.18+119.79, 

• -26.23, -36.22, -137.64 end -38.66+11132.11 

!lhe maximum force amplitudes as shown in Tig. 6 are 
llaas than those corresponding, to * Case (1) - Loca- 
Idon I of. Table 1 for comparable tr a ns i e n t re- 
sponses, whereas these are high , as compared to the 
; forces obtained using the pole clustering tech- 
nique (Section (b)). This la due to the large 
negative real parts of the other modes In the 
linear regulator case when compared to the pole 
clustering technique where all the poles have en 
equal negative real part (-1.0). Both the linear 
regulator and pole clustering technique have the 
draw back that the controlled frequencies can ba 
quite high compared to the uncontrolled frequencies. 
On the otherhaad, these techniques have tha ad- 
vantage that they can be applied to situations 
where the maber of actuators is less than the 
nt siber of modes in the mathematical model. In 
contrast to the decoupling technique of Section (a). 
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Appendix A - Nomenclature 


B 

C rs.* Cy* 


EL. 

f 

f i « 
*- x **y»->* 


r th mo dal amplitude function 

Control influence matrix 

Disturbance torques about tha prin- 
cipal undeformed body axaa 

Generic force on r th mode 

Force due to an actuator 

Force components due to an actuator 




Gravity gradient torques about tha 
principal undeformed body axaa 


I X ,I V ,1 2 Moments of inertia about the princi- 
pal axes 


Gain matrix 




Rate and position feedback gain 
matrices 


»T 

r th modal mass 

T 

Torque due to an actuator 

W T * 

Torque components 


r th modal shape function 


Nondlaenslonailzed modal amp 11 

tude function 

“C 

Orbital frequency 


Angular body rates 

♦ .V.® 

Roll, yav, pitch, respectively 

n 

3 

M 

3 

H 

3 

First thres modal fraquancias of 
tha plate 


Or,. 
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Location of two sets of actuators (I 





Fig 4a- Controlled state response for all combinations 
of orientations and actuator locations. 






Least damped mode negative 

real part (dimensionless) 



Fig. 5. Variation of least damped mode negative 
real part with a and R. 
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III. FREQUENCIES AND MODE SHAPES FOR RECTANGULAR PLATES 


The ability to determine accurately the frequencies and mode 
shapes is essential for the analysis and control of large structures 
in orbit. A thin rectangular plate, an important basic structure 
for several space applications, is considered for vibrational 
analysis. In the following sections the plate is assumed to be large, 
thin, and homogeneous, and all the edges are assumed to be free to 
vibrate. First, the approximate frequencies and mode shapes of a 
rectangular plate obtained by Warburton^ is discussed. This analysis 
also includes the opecial case of a square plate. Next, the analytical 
results for a square plate using the method of Lemke is considered. 

For a specific example of a square plate both analytical results are 
applied to determine the frequencies and mode shapes. An available 
finite element computer program is also used to obtain the frequencies 
and mode shapes of this plate . The results of both analytical methods and 
the computer routine are compared and discussed. 

1. Formulation by War ^ urton 

The approximate frequency formula is derived by applying the Raleigh 
method. The details of this method are given in the earlier contract 
report. 4 The basic equation used was the plate vibrational equation in 
the cartesian co-ordinate system (x,y), with the length and width of 
the plate taken along the x and y directions, respectively, and is given 
as 

9^W + 2 9 4 W + 9^W + 12p(l-c 2 ) 

9x 4 9x 2 9y 2 9y 4 Egh 2 


9 2 W 

9t 2 
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where p,o and E are the density, Poisson's ratio and Young's modulus 
of the plate naterial, respectively, h is the ;..ate thickness, and 
g is the acceleration due to gravity. The displacement, w, at 
any point (x,y) at time t is given by 

w = W sin art = A 6(x) 4>(y) sin u>t (III-2) 

e(x) and 4>(y) can be taken as the beam functions orthogonal 
to each other and can be used to approximate plate behavior. After 
talcing the appropriate free- free beam functions for 0(x) and 4>(y), 
the frequency expressions for a rectangular plate was derived as^ 

^2 - pa 4 (2Trf ) 2 12(1—0*0 (XXI— 3) 

it 4 Eh 2 g 

and X 2 = G 4 + Gy 4 — + 2 — [a H H + (1-p) JJl (III -4) 

x b 4 b 2 x ■ * y 

where X is a non-dimensional frequency factor, a and b are the length 

and width of the plate, and G , H , J , G , H , and J are functions 

x x x y y j 

associated with the number of nodal lines, m and n, parallel to 
x and y, respectively, for the beam functions 0(x) and <Ky), and are 
given in Table III-l. From Eq. (Ill -3), the frequency is obtained as 

f = — C ^ <cps) (III-5) 

a 2 48 p (l~g 2 ) 

Eq. (Ill- 5) is valid for thin rectangular plates. However, for square 
plates, (m,n) +_ (n,m) types of modes exist, and for these cases X in 
Eq. CIII-5) must be modified. These cases are discussed in detail in 
Ref. 1 and a few relevant results are given here. 
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I 
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I 
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I 

I 

I 
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I 
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Modes (m,o) + (0,111), m is even 
X 2 = (m-J*) 4 + 2 o(m-is) 2 p ~~ 

Modes (m,l) ± (l,m), form = 3,5,7 ,.... (III-6) 

>2 = W * 2(1-0) OH,)* [1 * 3 H, 

- 2 •<**>* §■ C1 - ts4jt ]2 i 2<1 -°’ 7^ 

For any mode of vibration the nodal pattern is defined by m and n, the 
number of nodal lines in the x and y directions, respectively. The 
mode shapes are obtained by using the corresponding modal frequencies in 
the beam functions and then evaluating the product, 0(x) *4>(y) , numerically. 

9 

2. Formulation by Lemke 

The frequencies and mode shapes were computed for a square plate 
using the Raleigh-Ritz method. The results are readily available only 
for six of the modes obtained by Warburton's method »_ Lemke uses 
displacement functions of the type, 

W = I Vn 0 m<*> * n (y> (III " 7 > 

where 0 m (x) and 4> n (y) are the free beam functions given as 


0 (x) = 
m 


cosh km cos k ro x + cos )% cosh 1% x 


/ cosh^lcm + cos^km 


(m even) 


(III-8) 


sirih )<m sin x + s ^ n ^m sin ^ ^m * 


/ sinh^kjjj - sin^ 


(m odd) 


<f>^(y) is obtained from Eq. (III-8) by replacing x by v amd m by n. 
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The values, k^, are the roots of the equations 


tan )% + tanh k m = 0 (m even) 

tan )% - tanh = 0 (m odd) 

which result from the spatial boundary conditions. Further, it was 

o 4 

shown by an energy principle that 


U 


tl'2 = 


max 


^ f a ^ W 2 dxdy 
o o 
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where is the maximum potential energy due to bending. The co- 
efficients, A^., in Eq. (III-7) are determined to nake u> 2 in Eq. (III-9) 
a minimum. Lemke obtained the coefficients, A^, by taking six or more 
terms in the series (III-7) and using four different values of Poisson's 
ratio. Expressions for six mode shapes and frequencies along with the 
co-efficents, A^, are tabulated in Ref. 2. As an example the expression 
for the first mode is given here. 

W (x,y) = x 1 y 1 + 0,0325 (x^ + x^) ~ .005 x 3 y 3 

- .00257 (x^ + x^) + .00121 (x 3 y £ + x,.y 3 ) 

- .000365 x^y^ + .... 


and 


U) = 


13.086 

.2 

a 


/ 


E h 3 
12 p (l-oO 


for o = .343 


The computer program used is the Structural Design Language (STRUDL) 
which uses the finite element method to determine the mode shapes and 
the frequencies of vibration. The input to the computer routine is 
given by specifying the type of structure and supplying other’ physical 
properties and dimensions of the structure. For a rectangular plate, 
the finite elements can be specified as rectangular elements and the 
i lumber of elements into which the plate should be divided depends upon 
the accuracy required. STRUDL gives deflections at each comer of the 
elements for all the modes from which the mode shapes can be determined. 
Further, a set of frequencies corresponding to the modes generated is 
obtained. In general, the accuracies of the frequencies and mode shapes 
will improve if the plate is modelled with a higher number of elements. 
However, computational errors due to truncation and round-off errors 
nav predominate as the order of the elements increases beyond a limit. 
Further, the limitations of the computers will restrict the number of 
elements into which the plate can be divided to obtain more accurate results 

4. Discussion of Numerical Results 


A square palte of sides 100 meters each and thickness 0.01 meters 
is considered to obtain the numerical results. The material of the plate 
is assumed to be aluminium with the following properties. 

density = 2768.0 kg/m 3 
Young's modulus = 0.744 1x10 10 kg/m 2 
Poisson's ratio = 0.33 




Using Warburton's results, Eq. (Ill -4), Eq. (Ill -5), Table (III-l), 
and expressions for 6(x) and 4>(y), frequencies and mode shapes are 
calculated for different combinations of the number of nodal lines, 
m and n, starting with combinations of m=0 and n=l, through m=3 and 
n=3. The first three combinations of nodal line numbers, (0,0), (1,0) 
and (0,1), represent rigid body motion. The first fundamental flexural 
frequency is seen to be due to a combination of m=l and n=l. The 
corresponding mode shape for the plate is obtained by multiplying 
the beam functions, e(x) and 4>(v) , for (beam) mode numbers 1 and 1, 
respectively (Fig. 1). Since the plate is approximated by sets of 
orthogonal beams in the x and y directions, the nodal pattern is also 
obtained by plotting the nodal points of these beams for their first 
modes. The next two higher frequencies are obtained by combinations of 
m=0 and n=2, but the nodal patterns (Figs. 2,4) can not be visualized as 
before. This is because these frequencies are of a special type resulting 
from a combination of the (2,0) and (0,2) plate modes. It can be seen 
that when the mode corresponding to (2,0) (Fig. 3(a)) is superimposed 
on the mode - (0,2) (Fig. 3(b)) the node shape depicted in Fig. 2 results. 
Similarly by superimposing the (2,0) and (0,2) modes the third mode shape 
(Fig. 4) is obtained. The two combinations of ncdal patterns m=l and 
n=2, give identical frequencies for the fourth and fifth mode and the 
corresponding shapes (Fig. 5) are as expected. The next two higher 
frequencies are also identical and result from combinations of the (3,0) 
and (0,3) modes. The eighth frequency is obtained from m=2 and n=2 and 
the mode shape obtained is shown in Fig. 7. 
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However, the ninth and tenth mode shapes obtained by the (3,1) and 
(1,3) combinations, are once again of a special type. The ninth mode 
shape is obtained by superimposing the (1,3) and (3,1) patterns (Fig. 8) 
and the tenth mode shape is obtained by superimposing (1,3) and (3,1) 
nodal patterns (Fig. 9). The next higher frequencies are obtained from 
combinations of the (3,2), (2,3) and (3,3) modes, respectively. The 
frequencies and nodal patterns obtained for all these modes are shown 
in Table 2. 

Frequencies and mode shapes are also obtained by using the expressions 
for the six modes given by Lemke . ^ The first three frequencies and mode 
shapes obtained agree with the frequencies and mode shapes computed from 
Warburton ' s formulas (Table 1). However, the next three frequencies 
obtained by Lemeke's method correspond to higher frequencies and mode 
shapes obtained by Warburton 's method. Also the nodal patterns obtained 
by Lemke's method compare approximately with the nodal patterns obtained 
by Warburton' s method although the frequencies do not correspond in all 
cases. The results obtained by Lemke do not shew the four intermediate 
frequencies corresponding to the fourth, fifth, sixth and seventh modes 
obtained by Warburton 's method. The frequencies and nodal pattern obtained 
by Lemke's method are shown in Table 2. 

For implementation of the computer program STRUDL, first the plate 
is divided into four elements. The first six modes (in terms of increasing 
frequencies) as predicted by STRUDL are also apparent from Warburton 's 
results. The plate is assumed to be divided into 9, 16, 36 and 64 elements, 
respectively . The results of STRUDL are tabulated in Table 2 . It can be 
seen that STRUDL frequencies approach the frequencies obtained by Warburton' s 
method as the number of plate elements is increased. 
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However, in the cases of 36 and 64 elements some of the frequencies show 
a tendency to oscillate about an average value. This probably is due 
to the computational round off errors which begin to dominate with 
the increasing computations associated with larger number of elements. 

Thus, the advantage of taking a large number of elements may not be fully 
realized due to numerical accuracy limitations. Computation with more 
elements requires more computation time and a larger computer memory . 

For the 64 elements case, it was not possible to obtain the mode shapes 
due to memory limitations. It was also observed that the convergence 
of the frequencies, with an increase in the numer of elements, is faster 
than the convergence of the mode shapes . It can be seen from Table 2 , 
that the numerical results of STRUDL using 36 elements correlate with 
the results of Warburton both in frequency and mode shapes. 

Table 3 and Table 4 compare non-dimensionalized deflections at the 
nodes (corners of elements) obtained by the three methods for the second 
mode (Fig. 2). For locations where deflections exist and do not correspond 
to maximum amplitude (+1.0) in all cases the results predicted by STRUDL 
lie in between the results obtained by the analytical methods of Lemke 
and Warburton. 

The results of this comparative study give an indication of the types 
of modelling errors that would be expected in the estimation of the frequencies 
and mode shpaes of the fundamental and lower order flexural modes of a 
large platform type structure in orbit. As an extension to this study 
the use of mere powerful (and accurate) finite element computer algorithms, 
not currently available at Howard University, is recommended. 
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TABLE III-l. Evaluation of Parameters in Frequency Expression (Warburton) 


m 

G x 


J x 

n 

G y 

«y 

J y 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

12 

W 

1 

0 

0 

12 

iT 

2 

1.506 

1.248 

5.017 

2 

1.506 

. 1.248 

5.017 

3 

4 

5 
• 
• 

m- \ 

1 2 

(m- j) P 

(m- j) Q 

3 

4 

5 
• 
• 

(n - j) 

(n- £)’p 

(Ht) 2 q 


P - [l-2/Cm-0.5)ir] Q - [l+6/(m-0.5)ir] 
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III-2. Frequencies and Nodal Patterns Obtained 































TABLE-III-3. Normalized Deflections at the Nodal Points Obtained by 
the Three Methods - Second Mode. 
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Case 4: 36 Elements 
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TABLE III-4. Normalized Deflections at the Nodal Points Obtained by the 
Three Methods - Second Mode. 
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Fig. 2 Second Mode (2,0)-<0,2> 



Eighth Mode (2,2) 






IV. GENERAL CONCLUSIONS AND RECOMMENDATIONS 


A model is developed for predicting the dynamics of a large flexible 
free-free thin platform in orbit under the influence of control devices 
which are considered to be placed at specific locations on the major 
surface and one of the edges. Control about three different nominal 
orientations is considered. In the absence of control, for the case 
of a completely homogeneous platform instability in at least sane of 
the modes is indicated for small amplitude motion about each of the 
three orientations. Once controllability is established, for a set of 
actuator locations, three different techniques are employed for the 
selection of actuator control laws: 

(1) the decoupling of the original state equations using state 
variable feedback; 

(2) a pole placement algorithm; and 

(3) an application of the linear regulator theory 

It is seen that each of tne three techniques have certain distinct ad- 
vantages and also specific limitations), which are discussed in detail 
in Chapter II. For systems involving multi-degrees of freedom (such as 
in this application) , the implement at ion of these techniques requires the 
extensive usage of computer algorithms. 

As a logical extension to the present study which assumes perfect 
instantaneous knowledge of the state, the modelling of the sensor dynamics 
and related problem of observability should be considered, once specific 
information on the types of sensors required for monitoring the performance 
of large flexible systems is available. 
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The problems caused by both observation and control spillover could 
also be treated, perhaps by beginning with the simpler model of the 
control of a long, flexible beam in orbit and then extending this 
analysis to the three dimensional model of the platform. 

A model of the uncontrolled dynamics of a large flexible shallow 
spherical shell (representative of an antenna dish or large radiometer) 
in orbit has been developed during the present grant year (see Part B 
this report). It is suggested that the effect of control devices be 
included in this model and that control laws could then be developed 
using different algorithms already in existence. 
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APPENDIX 


Modifications to ORACLS Software Package 

C 

The ORACLS Software Package that was developed at Langley which 
operates on the Control Data Cyber Computer System was modified to suit 
the IBM 370/165 Computer System that is available at Howard University. 

The major modifications that were done are described below: 

(1) As the single precision accuracy on the CDC is approximately 
equal to the double precision on the IBM/ 370 System, the entire 
package was converted into double precision. 

(2) Some of the machine dependent constants were changed accordingly. 

(3) As the IBM System accepts only six letters for a subroutine/ 
function name all the names that exceeded six letters were 
changed and the list of those subroutines is given below: 

Old Name New Name 


(1) 

TESTSTA 

TESTSA 

(2) 

VARANCE 

VARANC 

(3) 

TRANSIT 

TRNSIT 

(4) 

DISCREG 

DISREG 

(5) 

CNTNREG 

CNTREG 

(6) 

RICTNWT 

RICNWT 

(7) 

ASYMREG 

ASMREG 

(8) 

ASYMFTL 

ASMFIL 

(9) 

EXPMDFL 

EXPMDF 

(10) 

IMPMDFL 

IMPMDF 


(4) Same of the additional supporting subroutines /functions required 
were added and the names of these subroutines are given here: 

(1) PNCH 

(2) DIMAG 

(3) DREAL 


(4) 


BLOCK DATA 


(5) None of the arguments of the subroutines were changed 
The listing of the modified ORACLS package is given in the following 
pages. These routines have to be used in conjunction with Ref. (8). The 
numbers that appear in front of the FORTRAN statements are line numbers 
and have to be ommitted. 


SUB«OUT I NE eOTITU 
ILLICIT SEAL *8 (A*H,0«Z) 
co«mon/lines/title(io) ,til(3),nlp,lin 

qOMMON/FOPM/EMTt (2) ,F*T2(2) .NEPR 

C0MM0N/T0L/EPSAM,£PS9M, IACM 
COMMON/CONV/SUMCV,»ICTCV,SEPCV # MAXSUM 
NLP * NO, LIMES/PAGE VARIES *ITM THE INSTALLATION 
REA0(5» 100»6NO*RO»ERR*9l) TITLE 
100 FORMAT ( l 0 A8 ) 

CALL LNCNTU001_ __ 

RETURN 
RO CONTINUE 
. STUP t 
Rt CONTINUE 
STOP 2 

END _ 


ROTOOOl 0 
ROT00020 
ROT00030 
ROTOOOUO 
"ROTflOOSO 
RDT00060 
ROT 00070 
RQT00080 
ROTOOORO 
ROTOOIOO 
ROTOOl 10 
ROT00120 
ROT0013O 
ROTOOiaO 
ROTOOISO 
ROT00180 


I 



SUBROUTINE LNCNT (N) 

IMPLICIT PEAt*8 (A-H,0-Z) 
C0 mm 0N/LINE3/T ITLE (10),TIL(3)#NLP*L. IN 
lI*»«LINfN _ 

IP (LIN.LE.NUP) '60 TO 20‘ 

*PITE(6, tOtO) TITLE#TIU 
1010. fOP M AT(tHi,10A8,SAB/) 

LIN«2 »N 

IP (N. ST, NLP) LIN«2 
. .20 retuhn 

END 


LNC00010 
LNC00020 
LNC00050 
LNC000U0 
LNC00050 
LNC00080 
UNC00070 
LNC00080 
LNCOOOPO 
LNCOOtOfl 
LNC001 1 0 






SUBROUTINE re ADC# A,NA,B,N8,C#NC#D#N0,E#NE) 
IMPLICIT REAL*8 (A-M,0-Z) 
dimension A<i), 0 (i),cc)#o(n,e(n 
OLMENSION na ( 2) » N0 C2J f N_C (?) iNO (2) #_NE ( 2) #NZ (2) 


19 


RE AO ( 5# 1 00 ) LAB# 

CALL REAOKA, NA,NZ# LAB) 

IF ( I *EQ«. l) GO TO 999 

R£AO(5# 100 ) LAB# 

CALL REAOK0# NB#NZ# LAB) 

_ ... _.IFC.I._,.£Q._ 2J..G0 T0_9?9 

R£AO(5#100) LAB# 

CALL READ1 (C#NC#NZ#LAB) 

. .. IF C I *.EO«. 3) GO TO 999 _ 

REAO(5#lOO) LAB# 

CALL READKD# NO,NZ# LAB) 

J.FC.I. ,EQ^_«). 60..I0_99_9._ . 

R£AD(5»100) LAB# 

CALL REAOKE# N£#NZ# LAB) 

100 format CA«# ax , 2lu ) 

999 RETURN 
END 


NZ(l)# NZ(2) 


NZC), NZ (2) 


NZC), NZ(2) 


NZC)# NZC2) 


NZ(l)# NZ(2) 


REAOOOlO 
REA 00020 
REA 00030 
REA 000 AO 
"REA 00050 
REA 00060 
REA 00070 
REA 000 B 0 
REA 00090 
REAOOIOO 
R E A 0 0 1 l 0 
REA 00120 
REA 001 30 
REAOOiao 
REA 00 J 50 
REA 00180 
" RE AGO 170 
REA 001 B 0 

REAOO 190 

REA 00200 

REA 00210 


I- 



I 

I 

I 


I 

I 


I 

I 


r 

i 


i 
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SUBROUTINE PRNT f A , N A , NAM, IOP ) 

IMPLICIT RCAL*« <A-H,0-Z) 

DIMENSION A(l),NA(?) 

COMMON _ /POPM/PMTl (?) ,PMf2(2 ) € nEPR 
CO m mON/LINES/TITLEUO) ,TIL(3)#NLP,LIN 
C- NOTE NLP NO. LINES/PAGE VARIES WITH THE INSTALLATION, 

. . . _ DATA KZ,KW,K0 /IH0,1H1,IH / 

NAME • NAM 

II » IOP 

N R _* N A ( t ) _ 

NC * NA(2) 

NL3T » NR * NC 

IF( NLST ,LT, 1 .OP, NR ,LT. I ) GO TO 16 
IFfNAME .EQ. 0) NAME * K8 
C- SKIP HEADLINE IF REQUESTED. 

_ .. GO TO. (11,10,132,12), II. _ __ 

10 CALL LNCNT (1001 

11 CALL LNCNT ( 2 ) 

3„ NRITE(6, 17T) KZ,NAME,NR,NC 

177 F0RMAT(A1 ,5X, A«,8H MATR I X , 5X , 1 3# 5W ROWS , 5X , 1 3 , 8H COLUMNS ) 

GO TO 13 

12. CALL_LNCNT (100 ). _ _ 

GO TO 13 

132 CALL LNCNT (2) 

WRITE (6,891) 

891 FORMAT ( 1 HO ) 

C- 8ELOW COMPUTE NR OF LINES/ ROW — OECIOE IF 1 EXTRA BLANK LINE 
13 J*(NC-1)/NEPR*1 

C« WHY ALWAYS AOO 1 LINE- BECAUSE IF MULTIPLE, USE 1 BLK LINE EXTRA. 
NLFWiJ 

JST*1 . 

C COMPUTE LAST ROW POSITION -1 BELOW 

NLST ■ NLST -NR 

MNsNC _ __ 

IF (NC.GT.NEPR) "~MN*NEPR 

KLST*NP*(MN-1 ) 

91 continue 

00 912 J * JST, NR 
CALL LNCNTCNLPW) 

KLST * KLST ♦ 1 

WRITE (6,FMTl) ( A (N) ,NaJ, KLST ,NR ) 

IF (NC.LE.NEPR) GO TO 912 

NLST s NLST M 

KNR*KLST*NR 

WRITE C6,FMT2) (A(N), NaKNR , NLST, NR ) 

912 CONTINUE 

RETURN 

16 CALL LNCNT(l) 

WRITE (6,916) NAM, NA 

916 FORMAT (• ERROR IN PRNT MATRIX # ,A4,» HAS NAa*,2I6) 

RETURN 

ENO - 
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SUBROUTINE EQUATE! A.NA.R.NR) 

IMPLICIT REAL** (A-N.O-Z) 

DIMENSION A(l),8(l),NA(2),N8(2) 

N8(l) • NAU) _ 

NB(2) «NA(2) 

L»NA( 1 )*NA(2) 

I?( NA(l) ,LT, l .OR. L .IT. 1 ) GO TO 999 
00 500 1*1. L 
500 8(1) *A (I) 

1000 RETURN _ ___ 

999 CALL LNCNT ( 1 ) 

WRITE (6.50) NA 

50 FORMAT (' DIMENSION ERROR IN EQUATE NA*»,2I6) 
RETURN 
ENO 


EQU00010 
EQU00020 
EQU00050 
EQU000«0 
EQU00050 
EQU00060 
EQUOOOTO 
EQUOOOSO 
EQU00090 
EQUOO 1 00 
EQU001 1 0 
EQU 00120 
EQUOO 1 50 
EQUOO l 90 
EQUOO 150 


SUBROUTINE TRANP{ A,NA,B#NB) TRAOOOt 0 


IMPLICIT REALM (A-M.O-Z) 

DIMENSION A( l ),8<l),NA(2)#Ntt<2) 
N8(1 )bNA(2) 

NB( 2 )bNA( 1 ) 

NRsN A ( 1 ) 

.. . NC«NA(?) 

LaNRaNC 

IF C NR ,UT. 1 .OR. L .LT. 1 ) CO TO 

. . I»»9 .. ... 

00 300 I«t,NR 
IJ.I-NR 
00 300 J»t,NC 
I J*I J ♦NR 
IRalR^l 

30<LBCI.»)«A(IJ) . 

RETURN 

9R9 CALL LNCNT(l) 

WRITE (6,50) N A 

50 PORMAT (» DIMENSION ERROR IN TRANP 
RETURN 

...... ENO.. __ . . 


TRA00020 

TRA00030 

TRA00C«O 

~ TRA0005" 

TRA00060 

TRA00070 

" TRA00080 

R9Q TRA00090 

T9A00100 

~ TRAOOt 10 

TRA00120 
TRAOOt 30 
TRAOOtaO 
TRA00150 
TRA00160 

. - -- - TR A 00 1 70 

TRAOOtOO 

TRAOOtRO 

NAa*, 216) TRA00200 

TR4002! 0 
TRA00220 


SU*»OUMNE SCALE (4, NA, 0, N0, 3) 

IMPLICIT »EAL*0 (A.H.0-Z) 

DIMENSION A(t),fl(l) # NA(2),N0(2) 

N0C 1) » NAU) 

N0(2) «NA<2) ” 

L * MA(1)*NA<2) 

IK N*(t) ,LT, l ,09. (. ,UT, 1 ) GO TO 999 
00 500 I s 1 # L 
500 0(I)«A(I)*3 
1000 RCT.U9N 
999 CALL LNCNTf 1 ) 

•'(RITE (6# 50 ) NA 

50 RQR*AT (• DIMENSION ERROR IN SCALE NA«*,2t6) 
RETURN 
ENO 


5CA0001« 

SCA00020 

SCA00050 

SCAOOOaO 

SCA00050 

SCAOOO^o 

SCA00070 

SCAOOORO 

SCA00090 

SCA001 00 

SCA001K 

SCA00120 

SCA001 50 

SCAOOiao 

SCA0015C 


0 3U8»0UTim UNITY(A,NA) 

« l ILLICIT BEAL** <A-M,0-Z) 

J 01 PENSION A(1),NA(2) 

y - . I^tNA(l) # NE.NA(2) ) CO TO *99 

m* L«NA(t )*NA (2) ' 

§5 00 \00 IT«1,L 

9 ..100 A(IT)«0,0 

T J * • N»(J) 

I ) NAX • NA(t) 

» . _ 00 JOO !•! f NAX ___ 

to JsNAX ♦J*! " '* “ 

» l JOO A(J)st, 

? r,o to tooo 

J 999 CALL INCNT (l) 

I ** /»»ITE(6, 50)(NA(I),Iai,2) 

5 _ 50 POBMAT (» OIMgNSION EHBQB IN UNITY NAs»,2Ifc) 
9 tOOO 9ETURN ..... 

17 ENO 

I 


UNI0001 0 
UNI00020 
UNI00050 
UNIOOOUO 
' UNI00050 
UNI0009 0 
UNI 000 7 0 

UNI 00080 
UNI0009O 
UN 1 00 1 0 0 
UNI 00 1 1 0 
UN T 00 1 20 
UNlOOt 3^ 
UNI 00 1 an 
UNlOOtsn 
UN 1 00 1 6 0 
UNI0017" 
UNI00180 


l 


i 


1 


I 


I 

i 

I 


i 

* 


i 



A-8 


0 

II 

i 

7 

i; 

10 

ii 

l a 

I 


10 


999 


50 


SUBROUTINE NULL(A,NA) 

IMPLICIT AEAL*8 ( 0-Z 1 
DIMENSION A ( 1 ) 

DIMENSION NA ( 2 ) ___ 

NsN A ( 1 ) *N A ( 2 J 

IP( N A ( 1 ) .LT, 1 .OR. N ,LT. 
DO 101*1, N _ 

4 ( 1 ) * 0.0 
RETURN 


1 ) GO TO 999 


CONTINUE 

WRITE (6,50) NA 

PORMAT(» DIMENSION 

return 

END 


ERROR IN NULL NA *»,2I6) 


NUL0001 0 
NUL00020 
NUL0005O 
NULOOOan 

MJL00050 
NUL00060 
NUL00070 
NUL0009O 
NUL00090 
NUL00100 
NULOO 1 1 0 
NUL0012O 
NUL001 30 
NUL00140 
NULOO 1 50 


j 


l 

I 


1 



I 



I 




I 


A-9 


i 

i 


SUBROUTINE TRCE (A,NA,TR) 

IMPLICIT »EAL*0 (A-M,0 -Z) 

DIMENSION A(1) 

DIMENSION NA(2) _ 

IP (NA(1).NE.NA(2)) GO TO 600 
N«N A ( 1 ) 

TR»0,0 

IE( N .LT. I ) GO TO 600 
00 10 I»1,N 

. .. M» I * ( T •} ) 

10 TR*TPtA(M) 

RETURN 

600 CALL LNCNT(t) 

WRITE (6, 1600) NA 

1600 FORMAT (« TRACE REQUIRES SQUARE MATRIX NAa',216) 

RETURN _ _ 

ENO 


TRCOOOt* 

TRC0002 n 

TRC0003O 
TRCOOOao 
' TRC000BO 
TRC0006C 
TRC0007 ft 
TRCOOO0O 

TRCOOORO 
TRC001 00 
TRCOOt 1 0 
TRC00120 
TRCOOtSO 
TRCOOtao 
TPCOOISO 
TRC00160 
“ TRCOO t 70 


SUBROUTINE AOO ( A,NA,8,NB*C#NC) 

IMPLICIT REAL** (A-M,0 •l) 

DIMENSION A(t ),0(t )#C(!)»NA(2),MB(2)#NC(2) 

I F ( (NA(H ,NE, N8 ( l ) ) .OR. (N_A(2) ,NE._NP(2)) ) CO TO 999 
NCC 1 )*NA(t ) 

NC ( 2 ) *N A ( 2 ) 

L*NA(1)*NA(2) 

IF ( NA(l) ,Lt, 1 .OR. I .LT. 1 ) GO TO 999 

00 500 1*1*1 

ccx)«A(i)*Bcn __ ... .... . . 

GO TO 1000 

CALL LNCNT (1) 

*/RITE(6,50) NA,NB 

FORMAT (* 0 1 MENS I ON ERROR IN AOO N A* • , 2 1 6 , 5X # # NB* * , 21 6 ) 

RETURN 

END .. ..... . . 

I - 

r " " 

! 


a 

i 

i 



A 000 00 1 0 
A0000020 
AD000050 
AOOOOOan 
A0000050 
40000060 

4000 0 0 7 0 
AOOO 0 0 a 0 
A0000090 
400001 Of* 
A00001 1 0 
A0000120 
A00001 30 
AOOOOIUC 
A00001SO 
AOOO 0 160 




d 


SUBROUTINE SUBT(A,NA,8,NB,C,NC) 

IMPLICIT REAL*8 (A«M,0.Z) 

DIMENSION AC! ),0(n,C(l)#NA(2),NB(2),NCC2) 

_ IFf (NA(n.UE.N8(m.QR.(NA(2).NE .NB (2))) GO TO 999 

NCcnaNAcn ' ' ' " ■ 

NCC2)»NA(2) 

L*N A ( 1 ) *NA ( 2 ) 

I F ( MAC!) ,LT. t .OR. L .LT, 1 ) GO TO 999 
00 300 I»1,L 

_ 300 ccn*4(n-0cn_ 

go to looo " 

999 CALL LNCNT Cl) 

*BITE(6,50) NA,NB 

50 FORMAT (• OIMEN3ION ERROR IN 9U8T N A*» , 216, 5X , *N8x • , 216 ) 
1000 RETURN 

ENO _ 


I 



I 

I 

1 

i 

I 

-i 

i 

< 

i 



3UB0001 o 
5U8000?r 
8UB00030 
8U8000UO 
" 8U800050 
SU800060 
3U80007* 
3U800080 
8UR00090 
3U800 1 0^ 
' 3U800 1 1 0 
3UBOO l 2 r 
3UR001 30 
3U900140 
SUB00150 
3U80Q160 


i 

i 

I 






. Jo SUBROUTINE M ULT(A,NA,8,N0,C,NC) 

W l ILLICIT REALMS (A-H,0-Z) 

2 DIMENSION A(i) # 8(l),C(l),NAC2),Np(2),NC(2) 

« 5 NC(l) _*_N A ( 1 ) _ 

« NC(2) » NB(2) ‘ ‘ 

5 IF(NA(2).NE.N8(1 )) GO TO 999 

g 6 _ NAR * N A ( t ) 

| 7 MAC ■ NA (2) 

* 8 MAC * N0(2) 

.9 NAA3NAA*NAC _ 

1 .0 N0B*N AB#NBC " ' ' ~ ~ 

11 IP ( NAP ,LT. 1 .OR, NAA ,LT, 1 ,OR. N0B .IT. i ) GO TO 999 

..12 _ IP s 0 

1 15 I w s A C 

1U DO 350 K»1,N0C 

_..L5 IX * J« ♦ _NA C _ __ 

lb 00 350 J»1 ,nar "" 

1 1 7 IRaIRM 

.L9_. _ ... ie«iK _ _ 

19 JI*J«NAB ■ ” ' " 

< 20 Vl*0.0 

21 _ ... ,00_ 300 1*1, NAC „ 

22 JI * JI ♦ NAR 

,23 1 8* I B* 1 

|2P V3SACJI) 

*25 Vas0( IB) ” “ ~ " 

26 V2*V3*Vtt 

..•27. V1*VUV2 

I 28 300 CONTINUE ‘ " 

29 C ( I A ) *V 1 

1 30 350 CONTINUE 

31 GO TO 1000 ' ' 

32 999 CALL LNCNT (1) 

33 NRITE(b#500) (NA(I),I»l # 2),(NB(I),I * J_, j? ) _ 

{ 3u 500 FQR M AT (» 0 1 PENSION ERROR IN MULT NA s # , 2 1 6 , 5 X , * N Bs *~,~2 1 b~j 

35 1000 RETURN 

36 END 

I ’ 


MUL0001 
■XUL000? 
MUL0003 
MULOOOa 
^ULOOOF 
*UL000fc 
*HJL00 0 7 
«UL000« 
MUL0009 
VUL0010 

^ulooii 

WUL001 ? 

y ULOO 1 1 

MUL0O1 u 

MULOOl^ 

“lULOOl'- 

MUlOOl 7 

*UL00 1 0 

*UL00l= 

MUL002 r 

MUL002 1 

MUL002- 

M UL002 : 

*UL002- 

MUL002 C 

M ULOO?*- 

MUL002T 

MULOO?" 

«UL002 f: 

M UL 0 0 3' 

M ULOO 3 1 

^UL003' 

M UL003 

MUL003^ 

**1JL0 0 3‘ 

NiULOO 

^ULOO 3 


I 


I 


I 


1 


I ' 

i 

• A-13 




SUBROUTINE MAXELt A,NA,ELMAX1 
IMPLICIT REALMS fA-H,0«Z) 

DIMENSION A(1),NA(2) 

N « N A ( 1 ) *N A ( 2 ) 

|L m AX *_DASS( ACl)) __ _ 

00 tOO I • 2,N 
ELMAXI * OARS( A ( l ) ) 

__ IFL£UrAXU6T t EL M AX) _EL^AX^L^XI_ 
100 CONTINUE 

RETURN 

END 


MAX0001 
MAXOOO? 
MAX0003 
M A X 0 0 0 ^ 
MAX 00 OB 
MAXOOO* 
MAX0007 
MAXOOOP 
MAXOOOR 

MAX001 1 
MAXOOt? 
MAX 00 t 3 
MAXOOt^ 



in 0 


SUBROUTING NORM9(MAXROW,M,N, A, IOPT,RLNORM) 

NOROOOl 

«1 


IMPLICIT REAL** (A-M,0-Z) 

NOR0092 

*2 


OI^ENSION A ( 1 ) 

NOROOOS 


c._ 


NOROOOa 

■ « 

c 

initialization 

NQR0005 

*5 

c 


NOROOOfe 

. . 6 


rlnormbo. 

NOR0007 

f 7 


9U M «0* 

NOROOO® 

I 8 


Is-maxROw 

NOROOOR 

... _9. 

..c_ 


NOROO 1 0 

J 0 

c 

TRANSFER TO APPROPRIATE LOOP TO COMPUTE THE OE3IREO NORM 

"NOROOU 

I 11 

c 


NOROOl? 



IF(IOPT-2)5,20,30 

NOROOl 3 

IS 

c 


NOROO 1 4 

fl4 

c 

THIS LOOP COMPUTES THE ONE-NORM 

NOROOl 1 ' 

III 

_c_ 

. _ _ 

NOROO 1 6 

16 


5 00 15 K«l,N 

NOROO 1 7 

-17 


I *1 ♦MAXROW 

NOROO 1 6 

|l.9 


. 00 10 J * t * M 

NOROOl 0 

*19 


L«t*J 

N0R002 r 

29 


10 SU M sOA6S ( A (L ) ) ♦SUM 

NOR0021 

|IL 

. m m 

IPCSU-M J»T J*LN0RM)RLN0RM»3UM 

NOROO?? 

V 22 


15 SUMaO. 

NOROO? 1 

23 


RETURN 

NOROO?** 

| 2« 

c 


NOR002* 

I 25 

c 

THIS LOOP COMPUTES THE EUCLIOEAN NORM 

NOROO?*- 

9 26 

c 


NOR0027 

^7. 

— 

.20 Qa 25 Ksl.N 

NOR002 C 

I 2* 


I al ♦MAXROw 

NOR002 C 

• 26 


00 25 J*1 # M 

NOR003' 

SO. 


LaltJ .. . 

NOROOS’ 

I 31 


SUMaA(L) 

noroos; 

1 32 


25 RLNORMaSUM*SUM+RLNOPM 

NOROOS 

. Si 



RLNORMaOSQRT(RLNORM) 

NOROOS- 

i 3U 


return 

NOROOS’ 

i 35 

c 


NOROOS' 

! 16. 

c 

THIS LOOP COMPUTES THE INFINITY-NORM 

NOROOS 

37 

c 


NOROOS 

1 38 


SO 00 40 J* 1 » M 

NOROOS 

I 39 


— LaltJ _ 

NOROOU 

uo 


00 35 Ksi,N 

NOROO u 

1 ul 


LsL^mAxROW 

NOROOU 

“2 


35 SU M aO A8S (A(L))+SUM 

NOROOU 

» a j 


IF(SUM,GT.RLNORM)RLNO»MbSUM 

NOROOU 

44 

40 

SUMbO.O 


1 45 


RETURN 

NOROOU 

1 96 


ENO 

NQROOu 


I 

I 

I 

I 

A- 15 

I 



1 0 SUBROUTINE JUXTCt A,NA,8,N8,C,NC) 

1 ILLICIT BE AL *8 (A-H,0*Z) 

? oiMtNsioN Acn#e(n,c(n»NA(2),N8(2) # Ncc2) 

I S IF (NA d) .JYE ,N8( 1 ) )_GJJ JO 600 

A NC(1 )*NA(J ) ' ' ‘ 

5 NC(2)«NA(2)*NB(2) 

6 L*NA(i)*NA(2) 

1 7 NNC«NCtl)*NC(2) 

* IF ( N A ( 1 ) ,LT. 1 ,0«. L .LT. 1 ) GO TO 600 

9 _.Uf( NC (2) C LT* 1 ) GO_TOL 600 _ 

10 M3*N A ( l ) *N A ( 2 ) 

it 00 10 I«1,M8 

■»2. 10 CCI)«A(I) 

13 M3S»NA(1 )»NB(2) 

1 10 00 20 1*1, MBS 

J*M3*I _ ___ 

t6 2o c<j)«B<n 

J 17 RETURN 

1 8. 600 CALL LNCNTtl ) 

19 WRITE (6,1600) NA,NB 

20 1600 FORMAT (♦ 0I M 6NSI0N ERROR IN JUXTC, NA« » , 216, 5X , *NB* » , 216) 

I2L. .. RETURN _ 

122 ENO 


JUX0001 

JUX0002 

JUX0003 

JUX000U 

JUXOOOS 

JUX0006 

JUX0007 

JUXOOOA 

JUXOOOR 

JUXOOIO 

Juxooi 1 

JUX0012 
JUXOOI? 
JUXOOI « 
JUX0015 
JUXOOI* 
JUXOOI 7 

juxooi 0 

JUXOO 1 B 
JUX0020 
JUX0021 
JUX 0022 
JUX 002 * 







a> aivii & u rg o\* qd ji ei 


SU900UTIN€ JUXT»(A,NA,0,M0,C#NC) 


JUX0001 


DIMENSION 4<l),8<n#Cm#NA(2),NB(?)*NC(2> 
IF(NA(2) .NE.NB(2))G0 TO 600 


MC(2)*N4( 

MCC1)«N4(1)>N0(1) 
LaNAfl ) *N A ( 2 ) 


IB( NACi) ,LT , t .OB, L »L ^ 
IFC NC (2) .LT. 1 ) SO TO 600 


L ■ J ♦MRg * ( I • 1 ) 
10 C(L)*A(KJ 

00 20 I«l,MCA 


JUXOOO 

JUXOOO 


JUIVVv 

JUXOOO 

JUXOOO 


Rill 


MRA*NA(1 ) 

jurm 

v*R8»NR(l ) 

JUX001 

MRCaNCU) 

JIJX001 

00 10 Xsl'MCA 

jtnrwi 

00 10 J«1,MBA 

JUX001 

K«J+MRA*CI*1) 

JUX001 


till 


JUX00t‘ 

JUX001 ( 







r 


i 


lr- 

2 

8 .5. _ . 

a 

5 

6 

7 
8 

9 C_ 

1 10 

li 

*15 

1 6 

111.. 

19 

,20 

|2JL 

*22 

25 

lla _ 
125 
26 C 

.U 

|28 
*29 C 
50. 
131 

1 32 

*39 
55 
36 
37 
| 38 

L39_ . 

ao 

iai c 
42—- 
03 
ao 

|a5__„ 
* 06 
07 C 

i og 
09 
50 

.51— 

r 2 
1 53 

. 5 a 

I 55 

156 C 
_ 57 
. 58 


FACOOO « 

facooo; 

FACOOO 
FACOOO' 

" • "~"f ACOOO 1 - 

FACOOO' 
F AC 00 0 * 

- - - " ' FACOOO^ 

FACOOO*- 
FACOOU 

CALL EQUATECQ#NQ,0UMMY,NQ) ' ‘ " "FAC001* 

CALL SNVOEC ( IOPT,N,N,N,N,OUMMY,NOS#B, I AC# Z TEST, DUMMY (Nl ) ,0# IPANK , AFAC001 - 

IPLU3,IEPR) _... .... . ..... . MC001 

IF C IEPP ,EQ, 0 ) CO TO 200 FACOOt- 

C ALL LNCNT (5) FACOOl 1 

1FC IEPP *GT, 0 )_PPINT_100,IEPP _ __ ^FACOOl*- 

IF ( IERP .EO, *1) PRINT 150,ZTEST, IRANK FAC001* 

100 FOPMAT(//, # IN FACTOR , SNVOEC HAS FAILED TO CONVERGE TO THE »»IO,FAC001~ 
L» SINGULAR VALUE AFTER. 30 ITERATIONS*) FACOOl^ 

150 FORMATC //,* IN FACTOR » THE MATRIX Q SUBMITTED TO SNVOEC IS CLOSE TFAC002 r 
10 A MATRIX OF LOWER RANK USING ZTE3T s ',016.8#/#* IF THE ACCURACTFAC002 1 

2__I3_ REDUCED THE rank MAY ALSO BE REOUCEO*#/#* CURRENT RANK «* # I Q)FAC002t 

NOUM( 1 ).N ~ ’ ’* 

M0UM(2)«l 

IF( IERR «.EQ, -1) CALL PRNT(OUMMY (Nl ) ,NDUM,0HSNVL# 1 ) _ 

IF ( IEPR .GT, 0 ) RETURN 


SUBROUTINE F ACTOR ( Q # NQ , 0 , NO , I OP # I AC , DUMMY ) 
IMPLICIT REALAS (A-M#0-Z) 

OI M ENS ION Q(l),0(l).0UMMY(t) 

DIMENSION NO(2),NO(2),NOU**(2) 

I OPT « 2 
N . NQ ( 1 ) 

M_« N»*2 _ _ 

Nl ■ M + 1 - ■ - 

N2 « Nl ♦ N 


2J > 0 CONTINUE. 

NOUM(l) s N 


DO 25.0 J _* 1 » N 

Ml S ( J*1 ) *N ♦ 
M2 • J*N 
J?0_250_I »M1,M2 
K * N2+I-1 


250 


300 

350 


aoo 


l 


FAC'002' 
F AC 002'- 
FAC002 C 
~ FAC002^ 

FAC0027 
FAC002 C 
FAC'002 = 
F AC 0 0 3 r 
F AC003 1 

FAC00 3? 

FAC003’ 
F A C 0 0 3 
^rA'coo3 c 
F4C003* 
FAC0037 
' " FAC003 1 

F ACOO 3 C 
™ .... FACOOO' - 

FACOOO! 
Facooo; 
FACOOO ■ 
FACOOOi 

,LT, 0,0 ) CALL SCALE(DUMMY(N2),NDUM,DUMMY(N2)#NDUM # FAC00O e 

FACOOa* 
FA'COOa: 


L s Nl+J-1 

I F ( DUMMY f L ) ,EQ, 0,0) GO TO 300 
DUMMY (K ) ■ DSQRT(OUMMY(L))*DUMMY(I) 
CONTINUE 

N0UM.(2)sN 

GO TO 350 


J • 1 


N0U M C2> * 

CONTINUE 
IF ( DUMMY(N2) 

Lt L,.0.) 

CALL TRAMP (DUMMY (N2 ) » NOUM * D , NO ) 


) RETURN 


IFf IOP ,EQ, 0 
CALL LNCNT (0) 

PRINT 000 

FORMAT ( // f * FACTOR Q 
CALL PRNT ( Q , NQ , OH 0 
PRNT(0,ND,0H D 

MULT(0UMMY(N2) , NOUM, 0, NO, DUMMY ,NQ) 
PRMT ( DUMMY, NQ, OHDTX 0, 1 ) 


call 

CALL 

CALL 


AS (D TRANSPOSE) XD_ 

,n 

# 1 ) 


/) 


PETUPN 

FMO 


FACOOO' 
F A C 0 0 0 f 

F A C 0 0 5 1 

F AC 005 

FAC005- 

F‘A C 0 0 5 

F AC 0 0 5 

FACOOS' 

FAC005 

FAC005 

FAC005- 

FACOOS' 


A-18 


0 


1 1 


1 2 


.... 3 




1 5 

c 

6 

C 

7 

C 

1 A 


1 9 


10 


iii 


|l 2 

c 

13 

c 

* ltt 

c 

|li 


™ 1 6 


17 


fl 16 


llR 


20 


* 21 - 

. 5 ... 

§22 


'23 


24 

10 

125 

C 

9 26 

C 

. 27_ C. 

#2 8 

C 

I * 9 


30 

... 

31 


1 32 


*33 


34 


i 35 

20 

136 

C 

37 

C 

i 30 

C 

139 


* 40 


41 


i 42 


I 4 3 

30" 

44 


»“ 5 

c 

1 46 

c 

• a7 

c 

48 


| 49 


150 


_5i 


,52 


I 53 


“ 5 a 

40 __ 

55 


»56 


*57 

5Q_ . 

58 


*59 


1 60 


*61 


62 



1 


SUBROUTINE E I GEN ( max , N , A, ER, El, T3V, ILV, V, HK , TERR) 
IMPLICIT REAL *8 (A-m.O-Z) 

0 PENSION A(MAX,N),ER(N) # EIfN),V(MA*, 1) ,WK (N,l ) 

INTEGER I N T ( 20 ) 

LOr,ICAL*l SELECT ( 25) 

PRELIMINARY reduction 

CALL SALANC (MAX,N,A,LOw,IGM,*K) 

CALL ELMHES (MAX, N c LOW,IGM # A,INT(n) 

IV « ISV ♦ ILV 

IP (IV ,NE, 0) 60 TO 10 

COMPUTE ALL EIGENVALUES ANO NO EIGENVECTORS 

C4LL.MQR (MAX r N,L0w,I6H,A,ER,EI # IERR) __ 

IP (IERR .ME. 0) GO TO 260 
00 5 I ■ 1 » N 

WRCI.1) » E»(I) 

( I # 2) ■ El ( I ) 

**(J,3) ■ ER(I)**2 ♦ E I ( I ) **2 

.CONTINUE _ 

IC • 0 
GO TO 190 
CONTINUE. 

SAVE A MATRIX POP INVERSE ITERATION ANO INITIALIZE WK(I,4J 
.ARRAY .WHICH .WILL-.M._ a LOG.ICAL.ARRAY in CALLED SUBROUTINES 

00 20 1 8 1 , N 

SELECT(I)*. FALSE, . .. 

JS 8 1 

IP (I ,GE. 3) JS a I-t 

... 00 20 J8J3,N 

*K(I,J*5> a A ( I , J ) 

CONTINUE 

COMPUTE ALL EIGENVALUES _ (UN0R0EPE0) 

CALL HOP (N,N,L0*,IGH,WK(1^6),ER,EI,IERR) 

IF (IERR ,NE, 0) GO TO 260 
00 30 I s l , N 

WK(I,3) a ER(I)**2 ♦ E I ( I ) **2 ... 

CONTINUE 

IF (ILV .EQ. 0) GO TO 60 

PINO LARGEST “ILV EIGENVALUES* ANO FLAG THEM 

00 50 1*1 , ILV 

R s - 1.00 " ' ” ~ 

00 <10 J«1,M 

IF (WK(J, 3 ) ,LE. P)_GO T0_ «0 
K s J 

P s wK ( J , 3 ) 

CONTINUE 

SELECT(K )r,TRUE. 

48 (K , 1 ) S -*|K ( K , 3) 

CONTINUE 

IF (EI(K) .EQ. 0.) GO TO* 60 
IF (EI(K) ,GT. 0.) GO TO 55 
IF (SELECT(K-l ) )G0 TO 60 
TLV a I L V ♦ 1 A-19 

SELECT (*-l ) s , TRUE , 


O. ' 

V".* 


r'v * 

C\ 


V* ' 


E IGOOO ’ 

eigooo; 

E IGOOO • 

EIGOOO 

FIGOOO c 

EIGOOO^ 

EIGOOO' 

EIGOOO'- 

EIGOOO' 

EIGOOt ' 

EIG001 ’ 

EIGOOO 

E I GOO 1 

EIGOOl- 

EIGOOO 

CIG001 ► 

EIGOOt • 

E I GOO 1 6 

EIG001 r - 

EIG002 r 

EIG002' 

EIG002? 

EIG002 ! 

EIGOORw 

E IG002 1 - 

EIG002* 

EIG002* 

EIG002 S 

E I G 0 0 2 c 

EIG003- 

EIG003; 

EIG003; 

E I GOO 3 

EIG003- 

EIG003 U 

EIG003- 

EIG003" 

E I GOO 3'■ 

E I G 0 0 3 '■ 

EIGOOU' 

EIGOOU 1 

eigoou; 

EIGOOU ■ 

EIGOOU. 

EIGOOu*- 

EIGOOUr 

EIGOOU: 

EIGOOU- 

EIGOOU 

EIG005 

E I GO 05 ' 

EIG005- 

EIG005 

EIG005 

EIGCOS- 
E I G00 c • 
EIGOOS' 
E TG0OS> 
EIGOOc 
EIGOOfc • 
EIGOOt- 
EIGOOt, 
EIGOOt, - 


* 


„83_ 



GO TO 60 

EIG006- 



55 

CONTINUE 

EIGn*6 c 

*65 



IP (,NOT,SELECT(*M) ) ILV * ILVM 

EIG006<* 

66. 


_60 

CONTINUE 

EIG006' 

1*7 


IP ( I SV ,EQ. 0) GO TO 90 

EIGO06* 

1)4 

C 



1 !G006 C 

*9 C 


PINO smallest isv eigenvalues ano plag tmcm 

F IGOO 7 r 

*70 

c 


EIG007 1 

|n 



00 65 I * 1 # N 

EIG007" 




W8(I,3) • OARS ( NK ( I ; 3 ) ) 

EIG007 ' 

73 


65 

CONTINUE 

E I G 0 0 7 - 

|7a 



00 80 I«1,ISV 

EIG007 C 

*75 



P « 1,079 

EIG007' 

76 



00 70 J»t,N 

EIG007' 

| 77 



IP <*«(J,3) ,GE , P) GO TO 70 

E IGOO 7» 

-|7SL. 



K « J 

E 1 6 0 0 7 

*79 



P « wK(J#3) 

" EIGOO*' 

*80 


70 

CONTINUE 

EIG0081 

|m 



SELECT (P )«,T»UE, 

E IGOflA^ 

*82 



WK(K,3) • 1,079 

f IGOO* 7 

83 


80 

CONTINUE 

EIGOORm 

IM- 



. IF (El(K) ,E3,_ 0,) GO TO 90 

E IGOOA 6, 

1 85 



IP <EI(«) ,GT. 0.) GO TO 85 

EIG008- 

86 



IP (SELECT (*•! ) ) GO TO 90 

EIG0087 

,87 . 



ISV > ISVM 

EIGOO«« 

1 88 



SELECT(K-l)«.TRUE. 

EIG008« 

' 89 



GO TO 90 

EIG009' 

90 
1 9 1 

- 

85_ 

CONTINUE 

IF (.NOT.SELECi(KM)) ISV * I S V~V 1 " 

E I GO 09 ’ 
E T G 0 0 9 

192 


90 

CONTINUE 

EIGOORt 

.93 

c 



EI6009<- 

i ,a 

c 


PINO EIGENVECTORS FOR FLAGGED EIGENVALUES 

E IG009 C 

1 

c 



EIG009-- 

*96 

97 

— 

— - 

CALL INVIT (MAX,N,A,ER t EI,3ELECT,N.M,V,IERR,WK(l,6),WK(l,3)# 
1 *K(i;5n” 

EIG009? 
‘ 'EI00096 

I 90 

c 



EIG009C 

1 QQ 

c 


RACK TRANSPORT EIGENVECTORS TO ORIGINAL M A T R I X 

EIGO 1 O r 

i oo 

c 



EIG0101 

i oi 



CALL ELM0AK (MAX,lOw,IGH»A,INT(1) ,m,vj 

EIG01 0? 

1 02 



CALL BALBAK (MAX,N,LO*»IGH,aiK,w,V) 

E I GO 1 0 7 

103 

c 



EIGO 1 0^ 

1 oa 

c 


SEPARATE FLAGGED EIGENVALUES FROM UNFL AGGED EIGENVALUES 

E I GO 1 O'- 

| 05 

c 



EIG010»- 

*06 



IV s ISV ♦ ILV 

EIG010" 

107 



IF (IV ,LE. N) GO TO 100 

E I GO 1 0 f 

i 0.8 _ 



ILV 9 N-ISV 

El GOt 

1 09 



IV 9 N 

EIGOtir 

110 


100 

CONTINUE 

E I GO 1 1 ’ 

1 1 1 



IC = 0 

EIGO 1 1 ' 

i 12 



JC 3 IV 

EIGOt 1 ’ 

*13 



00 150 1 9 1 , N 

F I GO 1 1 - 

1.1 a 



IF (SELECT ( I ) ) GO TO 120 

EIG01 t 1 - 

f 1 5 



IF (EI(I) ,GE , 0 , ) GO TO 1 1 0 

EIGO 1 1 * 

1 16 



IF (SFLECT(I-n) GO TO 120 

E IGO l t “ 

117 


no 

CONTINUE 

EIG01 1 - 

JlS 



JC 9 JC+ 1 

EIG01 1 " 

f 1 9 



AK(JC,1 ) * FP ( I ) 

ETG012" 

*20 



nk(JC, 2) s El ( I ) 

E I G 0 1 2 • 

121 



«C : JC 

EIGO l 2? 

i?2 



GO TO 130 

F I GO 1 2 ‘ 

*23 


120 

CONTINUE 

ETG012- 

1 29 



IC 9 I C ♦ 1 A-20 

E TGO t 2 C 

J 25 



■N k ( I C , l ) 9 ER( I) 

EIG01 ?- 


126 


*« CIC,2) » €1(1) 

EIGOl?' 

(? 7 


*C » IC 

E 1 60 1 2 " 

§28 

l 30 

CONTINUE 

E I GO 1 2' 

129 


**(KC,3> • E»(I)**2 ♦ 6 I ( l ) **2 

EIGOH 

;so 

150 

CONTINUE 

EIGOl S’ 

I 3 ' 

C 


EIGOl 

132 

C 

NORMAL I 2E VECTORS to unit LENGTH AND STORE FOP REORDERING 

EIGOl 3 

133 

C 


6IG013- 

I3« 


J ■ 0 

EIGOl 3 C 

135 

151 

continue .... __ 

EIGOl 3* 

136 


J • JM 

EIGOl 3' 

i37 


IF (*K(J,2) ,NC. 0.) GO TO 154 

EIGOl 3* 

139 


8U M * 0, 

EIGOl 3 

139 


00 152 I * 1 » N 

EIG0t4r 



SUM • sum ♦ V(t,J)**2 

EIGOt 4* 

|41 

152.. 

CON T I NUf 

EIGOt 4; 

|42 


IF (SUM ,£Q. rt.) go TO 158 

EIG014 * 

143 


SUM a OSQRT(SUM) 

EIGOl 4 

1 44 


00 153 I«l#N 

E t GO 1 4 C 

|U5 


*F(I,J*4) a V(I,J)/3U M 

E IGO 1 4* 

1 46 

153 

CONTINUE 

EIGOt 4? 

J47. 


GO TO 158 _ 

EIG014- 

I 4? 

"l54 

CONTINUE 

EIG014 C 

! 49 


JPl a JM 

EIGOl'o 

150 


8IJM a rt. 

E IGO 1 5 ’ 

111 


00 155 I«i #N 

EIG015; 

152 


SUM a SUM ♦ V(I,J)**2 ♦ V(I # JPl )**2 

E I GO 1 5 * 

.153. 

155 

CONTINUE 

EIGOl 5- 

J54 


IF (SUM t go. 0.) GO TO 157 

EIG015* 

55 


SUM a DSgPT(SUM) 

EIG015- 

1 56 


DO 156 Iat,N 

EIG015? 

157 


** (If J*4) a V(I,J)/SUM 

E IGO 1 S'* 

158 


WK(X # J»5) a V(I,JP1 ) /SUM 

E IGO 1 5° 

159.. 

. 156 

CONTINUE 

EIG016C 

160 

157 

CONTINUE 

E IGO 1 6 1 

161 


J a JPl 

EIG016P 

62 

158 

CONTINUE 

E I GO 1 6 * 

i63 


IF (J ,LT. IV) GO TO 151 

EIGOl 6- 

164 


IC a 0 

EIGO^ 

i 65 


LC * 0 

E I GO 1 6** 

‘ 66 


IF (ISV ,EQ. 0) GO TO 190 

EIG016" 

167 

C 


6 1 GO 16- 

• 68 

C 

ORDER .SMALLEST ISV EIGENVALUES ANO EIGENVECTORS FO»_ OUTPUT 

E IGO 1 6 r 

! 59 

C 


EIG017" 

170 


00 190 Ial,ISV 

E I GO 1 7 1 

1 7 L 


P a 1,074 

EIGOl 7? 

i 72 


00 160 J»WIV 

E I GO 1 7 ^ 

173 


IF (*K(J,3) , GE . P) GO TO 160 

EIGOl 7- 

174 


K s J 

EIGOl 7= 

I 75 


P a «K(J,3) 

EIGOl 7 

I 76 

160 

CONTINUE 

E I GO 1 7 ’ 

177 


IC a IC*1 

EIGOl 7® 

179 


LC a LC >1 

EIGOl 7* 

79 


EP(IC) s wK(K,l) 

EIGOl * r 

Uo 


El (IC) s *K(K,2) 

EIGOl®: 

191 


00 170 Jsl t N 

E I GO 1 8 ^ 

j 82 


V(J,LC) s «K(J,K*4) 

F I GO 1 8 3 

1 83. 

170 

CONTINUE 

EIGOl 8 ■- 

184 


*K(K,3) a 1,074 

E IGO 1 flc 

1* 85 

190 

CONTINUE 

E T G 0 1 8 #* 

96 

190 

CONTINUE 

p I G 0 1 ® ' 

i 87 


TF (IV , F.Q , N) GO TO 220 

EIGOl®- 

1 80 

r 

A-21 

EIGOl 


I 64 c 

!*o c 


1«1 


TPa 

195 


|96 


*97 


19.8 . 


£99 

~ 200 

loo 


201 


2°2 


§03 


Soa 

. 210 

205 

22 0 

106 


1 0 7_. 

C 

208 

C 

209 

C 

10 


111 


212 


I 15 


1 14 



215 

fU_ 230 
17 
e\* 


2l<» 

20 

21 

222 

?23 2a0 


OPOFB iJMFL AGSEO E I5ENV ALUES FOB OUTPUT 
I V t • I V ♦ 1 

IUF ■ N - IV . __ _ _ 

00 210 1*1, IUF 
P ■ l.D7« 

PO 200 J«IVt # N 

IF (*K(J,3) ,GE. P) GO TO 200 

K ■ J 

P ■ WK(J,|). .. 

CONTINUE 
IC ■ ICM 
£B ( IC 1 • *K(K,1) 

ElflC) ■ o*(K,2) 

WK(K,J) • 1.07a 
CONTINUE _ 

CONTINUE 

IF (ILV ,E0. 0) GO TO 26 0 
OBOEB LARGEST ILV EIGENVALUES ANO EIGENVECTORS FOB OUTPUT 

00 250 I * 1 r I L V _ _ 

P • 1.07U 
00 230 J*1,IV 

.IF (WK(J,3). ,GE . P )__G0 TO _230_ 

K s J 

P ■ WK(J,J) 

CONTINUE 

IC » ICM 
LC * LCM 
EB ( IC ) « *K(K,1) 

EI(IC> * Af«(K,2) 
no 2U0 J3l,N 

V(J,LC) » **(J#K*a) 

CONTINUE 



2 a 


w«(K,3) * t.07a 


225 250 CONTINUE 

226 260 CONTINUE 

j 27 PFT'JPN 

128 . . _ END 


EI001O • 
E IGO t P ' 
FIG01B 

EI601 9 
EI5019- 
EIGOIP*' 
E IG0 1 P** 
EIGOlO' 
EIG010*- 
E IGO 1 P r 
EIG020- 
F IG020 1 
E I G 0 2 0 
ETG020 ; 
ETG020 - 
E 10020*- 
E 15020* 
E IG020 7 
EIG020* 1 
F IG020 r 
EIG021 ' 
EIG021 * 
FI GO 2 1 * 
FIG021 * 
EIG02! • 
EIG021 *■ 
EIG021* 
E 1502 1 7 
E 1502 1 *• 
EI5021 K 
E 1 5025'* 
E 15022 1 
EIG0222 

EIG022T 

‘ ' EI5022 -J 
€15022* 
EI5022- 
EI5022 7 
E I502? B 
EI5022 C 


I 

I 

I 


A- 2 2 



. 0 SUBROUTINE SYMPDS (MAXN,N, A,NRH3,B, IOPT, IFAC,OETEBM, I3CALE,B, IERR)SYMOOO 

3 

"I IMPLICIT R 6 AL *8 (A-M, 0 -n yYW97T0 

' a DIMENSION A(MAXN,N),B(MAXN,NRHS),P(N) SYM000 

J C S YMO 0 o 

i 

\ 4 DATA B1 7$TT\ . 00*75, 1 .0O->5/ SYMOOO 

j s c SYMOOO 

6 C TEST FOR A SCALAR MATRIX (IF COEFFICIENT MATRIX IS A SVMOO ft 

j 

s 7 C SCALAR-* SOLVE ANDCDMRuTE DEYERMINANTtF DESIRED} SYMflO ‘0 

8 IERR • 0 SYMOOO' 

1 9 NM1 • N-l SYM001 

j 

“To IF ( NM 1 ,GT. 0 ) GO TO 20 STRWl 
1 1 1 C S YMOO 1 ' 
1 1 2 IF ( A(l,l) .LE. 0.0 ) IERR * 1 _ SYM°Oi 

-i 

-i 

-i 

“i 

13 I SC ALE * 0 3VM001 

. 10 DETERM s A(l,l ) SYM001 

i is pet) * i.o/A(i#n svmoo t ' 

r T5 DO 1 0 J* 1 # NRHS sVMO ffi 

1 7 8(1, J) « 8 ( 1 , J) /DETERM SYMOOO 

18 10 continue svmoo 1 1 

ITr REtURN g WYTCT? " 

20 C SYM002 1 

,21 C TEST TO DETERMINE IF CHOLESKY DECOMPOSITION OF COEFFICIENT3YM002' 

__ MATRIX !$ DESIRED sYMflrt? 

23 20 IF ( IF AC ,EQ. 1) 60 TO 160 SYM002'- 

2a C SYM002 e 

| 25 C INITIALIZE' DETERMINANT EVALUATION PARAMETERS SYMflO?, 

I 26 DETERMsl.O 3YM0027 

27 I SC ALE*0 SYM002 f 

g 20 C S Y M 0 0 2 c 

] 29 C 'LOOP * TO PERFORM CHOLESK T DECOMPOSTION ON THE COEF- SYMQOS' 

30 C FICIENT MATRIX A (I.E. MATRIX A WILL BE DECOMPOSED INTO 3 YM003 ! 

1 

SIC THE PRODUCT OF A UNIT LOWER TRIANGULAR MATRIX (L>, A 5VM003 « 
[ 32 C DIAGONAL MATRIX (0), ANO THE TRANSPOSE OF L (LTRANSPOSE ) . ) SYM003! 
1 33 C SVMOO 3*'- 

J 

”30 30 DO 150 1*1, N STSnm* 
1 35 I M j S 1-1 SYM003* 
[ 36 C 3YM0037 

-1 

-1 
i 

37 DO 150 l«l,t : SVMoOSf 
,38 X > A ( J, I ) SYM00 3 C 
| 39 C SYMOOar 

’ ao C DETERMINE iE elements arE ABOVE DR BELOIn Y^E DiaOOMaL SWtfUTh 

01 IF (I ,GT, J) GO TO 110 SYMOOu; 

| 02 C SYM00a < 

1 03 C USING The DIAGONAL ElE^ENtS Of MATRIX A, THIS SECTION SWOOlu 

00 C COMPUTES 01 AGONAL MATRIX ANO DETERMINES IF MATRIX A IS SYM00O5 

.05 C SYMMETRIC POSITIVE DEFINITE SYMOOO*- 

! 

1 

1 06 IF ( I M 1 TTS. 0) GO TO 50 SYM0007 

*07 DO 00 Ksl.IMl SYMOOOP 

08 Y s A ( I , K ) SY M 00O c 

1 09 A ( I ,X ) * Y*P(K) SYM005f 

150 X * X - Y * A ( I , K ) SYM0051 

51 00 CONTINUE SYM 005 ? 

1 

# 52 C SYMO05 T 

|53 C TEST IF COEFFICIENT MATRIX IS POSITIVE DEFINITE SYM005- 

50 50 I^( X ,LE . 0.0 ) IERR = 1 SYMft05 t 

! 

55 C SYM0(V5f 
|56 C COMPUTE INVERSE OF DIAGONAL MATRIX D**-l = 1 /P SYM005^ 
157 P(I) * 1.0 / X SYMQ05 6 


50 C 

*59 C TEST TO SEE I F DETERMINANT IS TO BE EVALUATED 

|60 IF (IQPT .E Q. O) GO TO 150 

61 C 

l b2 C A-23 


SYWW5 = 
S Y M 0 0 6 r 
S V M 0 0 6 1 
S V M 0 0 fe 
SYMQ06 




6| C 


SCALE THE DETERMINANT (COMPUTE THE DETERMINANT EVALUATION 

SYMO >64 

6* C 
65 

“I— 

60 

PARAMETERS OETERM AND f SC ALE) 

P I VOT I aX 

IP(DABS(DETERM).LT.R1) go TO 70 

TYVW5 

SYM0066 

SYM0067 

6® 


OETERM a 0 ETERm*R2 " 

"SVMOflfi-fl 

68 


I3CALE * ISCALEM 

SYM0069 



GO TO 60 

SYM0070 

1 

70 

IP(OABS(OETERM).GT.R2) GO TO 80 

ttywitht 

71 


OETERM « D£TERM*Rl 

SYM0072 

_7| 


ISCALE a ISCALE-I 

SYM0075 

7ft 


GO TO 70 

TTYW8TZT 

7* 

80 

IF(0AR8(PIV0Tn.LT.Rl) GO TO 90 

3YM0075 

75 


P I VOT I a PIV0TI*R2 

SYM0076 

7m 


ISCALE « ISCALE*! 

irrmrrr 

7l 


GO TO 80 

SYM0078 

78 

90 

IF(DABS(PIV0TI).GT.R2) GO TO 100 

SYM0079 

73 


P I V 0 T I a PIVOTIPRI 

symqobt 

4 


ISCALE a ISCALE-1 

SYM0081 

-fit 


GO TO 90 

SYM0082 

82 

Too" 

OETERM a DETERM*PIV0TI 

"5VW<T9T 

8f 


GO TO 150 

SYM0084 

_Il_c_ 



SYMQ085 

05 C 




04 C 


USING THE LOWER TRIANGULAR ELEMENTS OF MATRIX A, THIS 

SYMQO07 

01 C 


SECTION COMPUTES THE UNIT LOWER TRIANGULAR MATRIX 

SYMQO80 

So 

no 

JM 1 a J-l 

T vwQirwv 

89 


IF ( JM 1 .EQ. 0) GO TO 140 

SYvoogo 

_3t_ 


00 120 Kal # JMt 

SYM0091 



X a X • A(I,K)*A(J,K) 

SVM(109? 

92 

120 

CONTINUE 

SYM0Q93 

JilJL 



SYM0094 

4 

iao 

A ( I , J ) a X 

■JYWJ 

9* C 



SYM0096 

96 

"«l mm " 

150 

CONTINUE 

SYMQ097 


g 

gg 


C 

c 


16 

r\ 


C 

C 

c 


SECTION TO APPLY PACK SUBSTITUTION TO SOLVE L*Y a 0 FOR 3YMQ099 
UNIT LOWER TRIANGULAR MATRIX AND CONSTANT COLUMN VECTOR B SYMQ100 


( 0 } C 
102 

160 

IF ( I F AC ,EO. 2 ) RETURN 
00 180 Is?,N 

~~ SVMgioi 
SYmqio? 
SYMO 1 0 3 

o o 

o 


I M 1 S I • 1 

SVM0104 
SYMQ l 05 

lOf 


DO 100 Jsl,NRHS 

SYMOl 06 

106 
1 0 i c 


X = 0(1, J) 

SYWl'07 
SYMQ 1 08 

10.1 


DO 170 K a 1 , I M 1 

SYMO 109 

109 


y, a x • A(X,K)*P(K,J) 

SVM0110 

LL|_c_ 

170 

CONTINUE 

SYMOl 1 1 
SYMOl 1 ? 

nf 


B(I, J) * X 

srwm 

113 
.11 C 

180 

CONTINUE 

SYMOl 14 
SYMOl 15 

ill C 


SECTION To solve (ltransTTOSE) *X s' 

nj**-n*Y for rwANSPust svMons 


OF UNIT LOWER TRIANGULAR MATRIX AND INVERSE OF DIAGONAL 
MATRIX 


Y * P ( N) 


SYM01 17 
SYMOl IP 
"SYM01 1C 
SYM01 2C 






l ife c 

f l27 
128 
.29 C 


SYMOt ? 



00 220 J*1,nAh3 
X ■ B(NMi,j)*y 

yyvfiT? 

3YM012 
3YM01 t 


00 210 «al,N ~~~ 

5TWP 


X » X • 4(K,NM1 )*8(K,J) 

3YM01 3 

210 

CONTINUE 

SYNon 


B(NM1,J) s X 

3YW0T3 

SYMOn 

220 

CONTINUE 

svMon 




I 0 



SU8R0UTIM* GELt M (NMAX,N, A, MOMS, 8, I P I VOT , IF AC , WK , I ERR ) 

5EL000 

■ t 



IMPLICIT REAL** (A-M.O-Z) 

GEL 00 o 

2 



DIMENSION A(NMAX, 1),B(NMAX,1),IPIV0T( 1 ) , MM ( t ) 

GELOOO 

1 3 



I£RR«0 . 

GELOOO 

8 o 

C 



GELOOO 

5 

C 


TEST POP L/U FACTORIZATION 

GELOOO' 

■ ^ 

c. 



GELOOO 

I 7 



IFdFAC.EO.l )G0 TO 10 

GELOOO 

B 8 



CALL OETFAC(NMAX,N,A, IPI VOT, IF AC, 06 TERM, I SC ALE ,*K, ! ERR) 

GELOOO 

. _ 9_ 



H.(IERR^GT.O)RETURN 

GEL001 

■ to 



IF (IFAC.EQ.2) oeta.oeterm* (10. **(100*1 SCALE)) 


In 


to 

nmi«n-i 

GEL001 

n 

c 



GEL001 

8 13 

c 


TEST FOR SCALAR A MATRIX 

GEL001 

1 l« 

c 



GEL001 

Li—. 


. IF_(NMLJJTJ))G0 TO 40 

GELOOT 

. 16 



IF(A(t,t),EQ.O.)GO TO 30 

GELOOI • 

I 17 



00 20 Ist,NRHS 

GEL001 

* L8 



.9Ct«Z)RS(li I)/Af 1*1) 

GEL001 * 

10 



IF (IFAC.EQ.2) WKC1)*0ETA 


1 20 



RETURN 

GELOO 1 f 

8 ?i 


. 10 

IERR»l . . .. 

GeL002 

33 



RETURN 

GELO° ? • 

« 23 

c 



GEL', 

1 2< * 


. 40 

0.0 100 M«| ,NRM3 

GELOf 1 

8 as 

c 



GELOO c 

3b 

c 


PIVOT THE M-TH COLUMN OF 8 MATRIX 

GEL002" 

1 27 

„c 



GEL002* 

1 2 " 



00 50 1*1 ,NM1 

GELOO? 

29 



KI»IPIVOT(I) 

GEL0O?‘ 

# 30 



P*B(KI,M) 

GEL002' 

1 31 



R (K I , M) «R ( I , M) 

GELOO 3 r 

1 32 


50 

8 (I#M)sP 

GEL003 ’ 

31. 

c 



gelooi; 

1 3 a 

c 


f’oRWARO SUBSTITUTION 

GELOOI' 

1 35 

c 



GELOO J 

36 



HK C 1 ) * R ( 1 ,M) 

GELOOI" 

f 17 

c 



GELOOI' 

1 30 



00 70 1 * 2 , N 

GEL003- 

* 19 



I'M = I - 1 

GELOO V 

an 



P*0.0 

GELOO?' 

1 at 



00 60 X * 1 , I M 1 

GELOOar 

1 42 


60 

PaP*A(I,K)*WK (K) 

GELOOa • 

43 


70 

WK(I)*B(I,M)-P 

GELOOu, 

m 44 

c 



GELOOU- 

I " 5 

c 


BACK SUBSTITUTION 

GEL004 

*46 

c 



GELOOU" 

47 



B (N , M ) sWK (N)/A(N,N) 

GELOOU- 

■ 48 

c 



GELOOa 

1 40 



00 90 J* 1 , N M 1 

GELOOU 

50 



I*N-J 

GELOOU- 

a 5 1 



IP1*I*1 

GEL005- 

I 52 " 



P = WK(I) ~~ 

GEL005 1 

*53 



00 10 K a I P 1 , N 

GEL0O«;. 

54 


80 

PaP-A(I,K)*B(K,M) 

GEL005 

■ 55 


90 

B(I,M)aP/A(I,I) 

GEL005 

* 5 6 

c 



GELOOS'- 

57 


100 

CONTINUE 

GEL005- 

§§58 



IF (IFAC.EQ.2) .VKCDsOETA 


■ SO 



PFT'IRM 

GE L 0 0 5 • 

60 



END 

GEL 0 0 s • 


A-26 


1 0 


SUBROUTINE SNvO£C( IOP, mo,NO,m,N,A,NOS,B,IAC,ZTE3T,Q,V, 

IRANK, APLUS, 3NV00O 

■ 1 


1IE99) 

3NV000 

2 


IMPLICIT P£AL*8 ( A.h,0«Z) 

3NVOOO 

1 1 


LOGICAL WITHU,WITHV 

3NV00O 



OIMENSION A(W0,N),V(ND,N),O(N), 6(150) 

. - SNV00ft 

5 


OIM6N3ION 0(MO,NO3),APLU3(NO,M) 

3NV000 


c ... 


3NV00O 

1 7 

c 


SNVOOO 

* a 

c 

TEST FOP SCALAP OP VECTOR A 

SNV00O 

9 

c_ 


3NV001 

■ 10 


I F ( N .GE. 2 ) GO TO 3000 

SNV001 

In 

c 


3NV001 

12 


IEPP a 0 

3NV001 

a 13 


ZTE3T a 10,**(-IAC) 

SNVOOt 

Iiu 


9tJM a 0.0 

3NV001 

LS. 

_ 

OQ 1000 X.al,M 

3NV001 

16 


SIJM a SUM ♦ A ( I , 1 ) * A ( I , 1) 

SNV001 

| 17 

1000 

CONTINUE 

3NV001 

1 l* 


SUM a DSQRT(SUM) 

3NV001 

19 


I WANK * 0 

SNV002 

i 20 


I F ( SUM ,GT. ZTE3T ) IRANK a 1 

3NV002 

I 2L 


. Q (.1 ) P. SUM 

3NV002 

*22 

c 


3NV002 

. ?3 


I F ( IOP .EQ. 1) RETURN 

3NV00? 

i 2U 


vn,i).» i.o 

SNV002' 

■ 25 


I F ( IRANK .ED. 0 ) GO TO 1200 

9NV00? 

26 


00 1100 I at, M 

3NV002 

1 27 


Atm) a A ( I « 1 ) /SUM 

3 w V 0 0 2 

I 

1100 

CONTINUE 

3NV002 

?9 


GO TO 1300 

SNV003 

1 30 

-1200. 

CONTINUE.. _ .. 

3 N V 0 0 3 

31 


A ( 1 , 1 ) a 1.0 

SNV003 

* 32 

1 soo 

CONTINUE 

3NV003 

31_ 

C- 

_ 

3NV003 

1 3U 


I F ( IOP , EG, 2 ) RETURN 

8NV003 

1 35 


I F ( IOP ,EQ. 4 ) GO TO 1850 

3NV003 

16 


I F C IPANK ,EO, 0 ) GO TO 1600 

9NV003 

1 37 


00 1500 J a 1 , NOS 

SNV003 

38 


Z 3 0 

3NVO03 

1 39. 


00 1400 I.* 1, M 

SNVOOU 

uo 


Z s Z ♦ A(I,l)*B(I,j)/SUM 

SNVOOU 

1 al 

1400 

CONTINUE 

SNVOOU 

I U2 


«u,j) * z .. 

SNVOOU 

a3 

1 5 0 0~ 

CONTINUE 

‘SNVOOU 

I uu 


GO TO 1800 

SNVOOU 

45- 

1.60.0 

.CONTINUE 

SNVOOU- 

* 46 


on 1700 J 31, NOS 

" "'SNVOOU 

47 


9(1. J) a 0.0 

SNVOOU 

1 US 

L700 

CONTINUE 

SNVOOU 

1 49 

1800 

CONTINUE 

SNVOO* 

50 

C 


SNV005 

1 5l - 


.IF L IOP JE<1. 3 ) RETURN 

SNVOOS 

52 

1 850~ 

CONTINUE 

S N V 0 0 5 

* 53 


I F ( IRANK .EQ. 0 ) GO TO 2000 

SNVOOS 



00 1900 I 31, m 

9NV00S 

I 55 


APLUS (1,1) = A ( I , 1 ) /SUM 

SNV005 

» 56 

1900 

CONTINUE 

SNV005 

57 


return 

3N V 0 0 S 

1 58 

2000 

CONTINUE - - - - 

SNVOOS 

I 39 


00 2100 I Sl,* 

SNV006 

60 


APLUS ( 1 , I ) = 0.0 a_27 

SNV006 

i 61 

2100 

CONTINUE 

SNV006 



return 

SNV006 


I 

I 


63 C 
6« C 

65 3000 CONTINUE 

66_C 

67 C 

66 C 


69 TOL»l. 00-60 _ 

1 70 SIZE«0,0 

71 NPlaNM 

72 C _ . 

1 73 C COMPUTE THE E-NORM OF MATRIX A A3 ZERO TEST FOR SINGULAR VALUES. 

7a c 

.7.5 _ Siimso.o 

76 00 500 I»W M 

1 77 00 500 J*1,N 

73... 500 SUM s SUM ♦ A(I,J)**2 _ 

79 ZTEST s DSQRT(SUM) 

I SO ZTEST • ZTEST*IO.**C-IAC) 

31 . C.. __ 

62 510 IF (I0P.NE.1 ) SO TO 515 

S3 wjTHUs. FALSE. 

Isa _ withvs^false , 

■ 85 SO TO 520 

86 515 * I THU*, TRUE. 

I 87_ _ WITHV..TRUE, _ __ 

88 520 CONTINUE 

89 G 3 0.0 


90 X a_ 0 , 0 _ 

1 91 00 30 I V 1 i N 

■92 C 

93 C HOUSEHOLDER REDUCTION TO _B I D I AGON AL_ FORM 

I 9a C 

95 E(I) » G 

_96 _ _ _ S_* 0.0 

1 97' L * Ul' 

98 C 

99 c ANNIHILATE the 1-th COLUMN BELOW DIAGONAL. 

100 C 

1 01 DO 3 J S I,M 

02 3 8 a_S .t .A(Jf.I)**2. _ 

103 G a 0,6 

I f oa I F ( S ,LT , TOL) GO TO 10 

05 G a DSQRT(S) 

l 06 F s A(I r I) 

107 I F ( F ,GE . 0.0) G a -G 

1 08 H s F*G -S __ __ 

09 'Afl, I) a F-G 

HO IF(I .EQ. N) GO TO 10 

11 DO 9 J s L , N 

12 S s 0 , 0 

13 DO 7 K s I,m 

1 1 a 7 S s S ♦A(K,I)*A(K,J) 

1 15 F s S/H 

16 DO 6 x a I , m 

117 5 A(K,J) sA(K,J) f F*AfK,I) 

( IS 9 CONTINUE 

19 10 Qd) a G 

20 I Fd .EQ. N) GO TO 20 _ _ 

ANNIHILATE the I-TH ROW to RIGHT OF SUPER-OIAG. 
S a 0.0 

DO It J a L , N A _ 28 


21 C 

22 C 

23 C 
12a 

I 25 


3NV0O6 
3NV006 
3NV006 
3NV006 
SNVO06 
9NV006 
SNV007 
SNV007 
3NV007 
SNV007 
SNV007 
SNV007 
SNV007 
SNV007 
SNV007 
SNV007 
3NV00 * 
SNV008 
3NV008 
8NV00R 
3NV008 
3NV00F 
~ SNV00« 
3NV008 
SNVOOF 
3NV008 
9NV009 
3NV009 
3NV009 
3NV009 
3NV009 
9NV009' 
3N V 0 0 9 ' 
3NV009 
' 3 N V 0 0 9 
3NV009 
3NV01 C 
3NV01 0 
3NV01 0 
3N V 0 1 0 
SNV01 0 
3NV01 0 
SNV010 
SNV01 0 
SN v 0 1 0 
3NV010 
"SNVO 1 1 
SNV01 1 
SNVO 1 1 
3NV01 1 
SNVO t 1 
SNVO 1 1 
SNV01 1 
SNV01 1 
SNV01 1 
SNV01 1 
SNVO 1 ? 
SNVO 1 ? 
S N V ft 1 ? 
S N V 0 1 ? 
SNVO 1 ? 
SNVO t ? 
9NV012 


i?V 


.11 

S * S ♦ 4(1, J )**2 

■ 27 



G 3 0,0 

128 



IF (S .IT, TOL) GO TO 20 




G « OSQRT(S) 

■ 30 



F 3 

*31 



I F ( F ,GE , 0.0) G 3 -G 

132 . 



N s F#G «S 

1 33 



'*(1,1*1) « F • G 

*3a 



DO 15 J * L#N 

.135 


15 

.. E(J) * A(I,J)/H _ _ 

A 36 



on 19 j 3 l,m 

| 37 



S 3 0,0 

13« 



00 16 » * L,N 

139 


16 

S 3 S ♦ A(J,K) * 4(1, K) 

1 ao 



00 17 8 3 L,N 

l«t 


. 17_ 

4 ( J , K ) 3 A ( J , K ) ♦ S*E(K) 

U 2 


19 

continue 

| a 3 


20 

Y s 0 ARS(O(in ♦ OARS (E ( I ) ) 

1 aa 



IF CT .ST . SIZE) SIZE * V . 

l«5 


30 

CONTINUE 

J46 

#» 


IF ( .NOT , wITHV) GO TO «l 

1 47_ 
■ as 

C . 

c 

t 

Accumulation of right” "transformations 

lap 

c 



| 50 



00 ao 11 3 l , n 

1 51 



1 3 NPl - II 

152 



IF f I .EG. N) GO TO 39 

:5i 



LFCG .EG* 0.0) GG _T0 37 _ 

5a 



H 3 A(I t l4-l)*G 

* 55 



DO 32 J a L , N 

156 


.32. 

V(J,I) 3 A(I,J)/H 

i 57 



DO 3* J a L , N 

I 58 



S a 0,0 

. L59 



00 33 * a L,N 

; 60 


33 

9 a S ♦ A(I,«)*V(K,J) 

1 61 



DO 3a K s L,N . 

162 


3a 

V (*,J) 3 V(K,J) ♦ S*V(K,I) 

163 


36 

CONTINUE 

1 6a 


37 

00 38 J a L,N 

1 65 



vtif J) * o.o 

166 


38 

V(J,I) a 0,0 

1 67 


39 

V(I,I) a 1,0 

I 63 



G a E(I) . _ 

169 


ao 

L a I 

170 


ai 

CONTINUE 

7L 



IF (..NOT «. wITHU) GO TO 53 

172 

”c 



173 

c 


ACCUMULATION OF LEFT TRANSFORMATIONS. 

I 7a 

c 



I 75 



DO 52 II a 1,N 

176 



I a NPl -TI 

J 77 



L * I ♦ 1 

1 78 



G = 0(1) 

\79 



I F ( I .EG, M) GO TO a3 

180 



DO a2 J = L , N 

1 81 


a? 

4 ( I # J ) a 0.0 

1 82 


a3 

CONTINUE 

_ 183 



I F ( G ,EQ. 0.0) GO TO U9 

J 3a 



I F ( I .EG. N) GO TO a7 

1 85 



H r A ( I , I ) *G 

1 86 



DO a* J a L , N 

187 



S s 0.0 A-29 

1 «8 



DO aa K a L,M 




SNVOl ? 
SNVOl ? 
SNVOl e 
SNVOt 3 
SNVOl * 
SNVOl 3 
SNVOl 3 
SNVOl J 

sNvon 

SN V 0 1 3 
SNVOl 3 

sNvon 

SNVOl 5 
SNVOl -i 
SNVOl a 
SNVOl <1 
SNVOl a 
SNVOl a 
SNVOl a 
SNVOl a 
SNVOl U 
SNVOlu 
SNVOl a 
SNVOl "5 
SNV015 
SNVOl 5 
3NV015 
3NV01S 
' SNV015' 
SNV015' 
SNVOl S’ 
SNVOIS' 
SNV015' 
_ SNVOl* 
SNVOl* 
SNVOl * 
SNVOl* 
SNVOl* 
SNVOl* 1 
SNVOl *- 
SNVOl * 
SNVOl*- 
SNVOl* 
SNVOl 7 
SNVOl 7 ’ 
SNVOl 7; 
SNVOl 7 ’ 
SNVOl 7 
SNVOl 7‘ 
SNVOl 7' 
SNVOl T 
SNVOl 7 
SNVOl 7 
SNVOl 0 
S N V 0 1 » ‘ 
SNVOl « : 
SNVOl P 
SNVfl 1 P 
SNVOl 0 L 
SNVOl 
S N V 0 1 * ‘ 
S N V 0 1 P 
SNVOl 0 


180 

loo 

iot 

102 

1 05 
ou 
1 ° 5 . 
J 06 

I 97 

_T 98 . 
109 

I 00 

01 

202 

( 03 
0 « 
05 
206 

I 07 

9 08 
200 

I r .10 

lli 

fii 

_ 216 _ 
f 17 

\\l 

fi? 

122 

223 

I ' 2 a 
25 
226 
27 
28 
20 
230 

I 32 
233 
3 a 
35 
36 
237 

ps 

I 30 
2 ao 
pi 
P 2 

* aj 
2 aa 
las 

9 46 
2 a 7 
fas 

250 

251 


C 

t 


[ 


aa 5 • 9 ♦ a(*,I)«a(k,J) ..._ 

F • 9/n 

00 as k * i,m 

45 . . A ( K , J ) * A(K,J) F * A ( K , I )_ 

46 CONTINUE 

a7 00 a8 J 1 I $** 

as 4(J,t) « A(J,I)/G . . 

GO TO St 

49 00 50 J • I,M 

50..A(J,I) « O.P . 

51 4(1,1) * ACI,I) ♦ t.O 

52 CONTINUE 

53 CONTINUE 

OTAGONAUZATJON OF 8I0IAG0NAL FORM, 


00 100 Kfc»t,N 
K*NP1*K« 

ITCNT*0 

KP1 **♦! 

TEST F SPLITTING, . . 

59 CONTINUE 

00 60 LL*1 ,K 
L*KPt-LL 

IP((3IZE*DA0SCE(L) )) .EQ.SIZE) GO TO 64 

L M l 3 L«l .... „ 

IF((SIZE*0ABS(Q(LM1))).EQ.3IZE) GO TO 61 

60 CONTINUE 

CANCELLATION OF E (L ) IF L ,GT. 1 , 

61 C*0.0 

3*1,0 
L 1 =L- 1 
DO 63 I*L,K 
F * 3 *E ( I ) 

E ( I ) *C*E ( I ) 

IF((SIZE*0A8S(F) ) .EQ.SIZE) 00 T0_ 6_4_ 
G*Q(I) 

Q(I)sOSQRT(F*F*G*G) 

HsQ(I) __ 

C*G/M 

3*-F/H 

IF(,NOT,^ITMU) G0_T0_63 

00 62 J*1,M ' 

Y*A( J,L1 ) 

Z*A(J, I) 

a ( j,li )*y*c*z*s 
A(J# n* -y*s*z*c 

62 CONTINUE 


63 CONTINUE 

TF.3T F CONVERGENCE, 

64 ZsO(K) 

IF(L.EO.K) GO to 75 
TFfITCNT ,LE , 30) GO TO 65 

JPPR S 

PE TURN A- 30 

65 I T C N T s ITCNT ♦ 1 


3NV01 9 
SNVO 1 9 
9NV01 9 
SNVO 1 9 
3NV0 1 9 
SNVO 1 9 
SNV01 9 
SNVO l 9 
SNV01R 
SNVO! 9 
SNV02« 
9NV020 
SNV020 
SNV020 
SMV020 
SNV020 
3NV02O 
SNV020 
SNV020 ' 
SNV020 
SNV021 
SNV021 
SNV021 
3NV021 
3NV021 
3NV02 1 c 
8NV02 1 * 
SNV021 
3NV021 • 
9NV02 1 • 
SNV022' 
3NV022 1 
3NV022 : 
SNV022 ' 
3NV022 
3NV022 L 
3NV022' 
SNV022' 
SNV022 
SNVO??' 
SNV023 
3NV023 ' 
3 N V 0 2 3 •' 
SNV023' 
SNV023 
3NV023- 
'SNV023- 
3NV023 
SNV023 1 
9 N V 0 2 3 
SNV 024 
3NV02U • 
S N V ft 2 4 
3 N V 0 2 4 
SNVft24. 
S N V 0 2 4 r 
3NV024- 
5NV02U- 
3 n V 0 2 a > 
SNVft24' 
SNVft25 r 
SNV025 * 
3 NV 025 ; 


■'52. C 



■!53 C 


SHIFT from LOWER 2*2 , 

294 C 

- 


. X»Q(l) _ _ ... .... 

1*56 


V »0 (K« 1 ) 

l'57 


G*€(F»1 ) 

- 258 


H«E(K) 

|75Q 


F » ( (Y«Z)*(Y*Z)*(G*M) #(G**) ) / ( 2 • 0 *w* V ) 

|»60 


G*D3QRT(F*PM.O) 

2ft 1 


IFCF.LT*0.0) . G«-G . . 

.262 


F s ( (X-Z)*(X^Z)*H*(Y/(F»G)»h))/X 

|'63 C 
A'eu C 



265 C 


NEXT 99 TRANSFORMATION, 

|!66 C 
1*67 — 


C«l .0 . . _ 

268 


3*1,0 

»?69 


LP 1 *L * 1 

1*70 


00 73 I *tP 1 # * .. 

*271 


G*6 ( I ) 

272 


y*om 

|»73 .... 


h*3*G 

■>7u 


G*C *G 

275 


Z*DSGRT(F*F*H*H) 

■776. . 


E ( I • l ) *2 _ ... 

■ !77 


C*F/Z 

273 


S*h/Z 

.279 ... 


f*x*c+g*s ... . .... 

|*«0 


Gs«X*$*G*C 

Ija i 


H * V * 3 

292. 


Y * V *C .. ._..._ 

^9 3 


I F ( ,NOT . w I THV ) GO TO 70 

(’9 4 


DO 60 J*1,N 

285.. . 


. . X3V(J f 1-1) . . 

286 


Z *V(J, I) 

|>«7 

^299 


V(J,I-t)sX*C*Z*S 
V(J, I) s-X*3+Z*C 

2«9 

69 

CONTINUE 

*’90 C 
1*91 

70 

ZsOSQRT (F*F*H*H) 

292 


o(i-n*z 

29 3 


CsF/Z 

|’ oa - 


3sH/Z _ ._ 

*95 


F3C*G>S*Y 

296 


X*«S*G+C*Y 

4’97 . . 


IF(.NOT.wITMU) GO TO 73 

1'90 


DO 72 J«1,m 

299 


V s A < J , I • 1 ) 

JOO 


Zs A ( J , I ) 

|,0 1 


A ( J » I • 1 )sY*OZ*3 

*02 


A( J, I )3-Y*S*Z*C 

303 

72 

CONTINUE . ._ . 

foa C 
*05 C 
.306 

75 

ecu * o.o 

d i07 


F(K)3F 

i>09 


0(K )3X 

309 


GO TP 59 

310 C 

in c 


CONVERGENCE, 

Il2 C 

313 

75 

CONTINUE A-31 

r 


IF(Z.GE.O.O) GO TO 100 


3NV0?* 

3 Nv02 c 

3NV02* 

3NV02* 

3NV02* 

SNVOZ* 

SNV02* 

3NV02* 

3NV026 

3NV026 

SNVO?6 

3N V 02* 

SNV02* 

3NV02* 

SNV026 

3NV02* 

SNV02* 

3NV027 

SNV027 

3N V 027 

SNV027 

3NV027 

3NV027 

SNV027 

3NV027 

SNV027 

3NV027 

SNVO?H 

3MV02P 

3 n V 0 2 fl 

3NV02* 

3NV0?« 

SNV02P ! 

SNV02® • 

SNV02" 

SNV02® 

SNV02* 

SNV02® 

SNV029 

3 NV02« 

3 N V 0 2 9 

3NV02° 

SNV02« l 

3NV029- 

SNV029 

SNV039 ‘ 

SNV 029 c 

3NV030 

SNV03 fl 

SMVOJO 

SNV030 

SNVO ?0 

SNV030’ 

3NV030> 

SNV 0 3 0 

SNV03 ft 

SNV03H 

SNvn 3 1 

SNVC31 ' 

S v V 0 3 1 

9NV031 

SNV031 

3NV03 1 L 


311 ... Q(K)i-Z 

3 1 | I*<,N0T.*ITHV) 60 TO 100 

3 IT 00 76 J«1,N 

3ifl _ 76. VCJi* i*-v< J#K) _ 

3l| 100 CONTINUE 

32i C 

321 , ie*»«o . 

321 00 2A0 1 1 *2# N 

3?| tall-l 

J24_ _*al _ _ 

32« PaQ(I) 

3f| 00 230 JaII,N 

3c" . IP (O(J).LE.P) GO TO 230 

323 K*J 

3?| °aQ ( J ) 

3?|_ . 230. CONTINUE. . 

331 C 

3?g* IF (k.EG.T) GO TO 230 

3:1 __ . Q(K) a 0(1) 

33** Q ( I ) * P 

333 C 

,3'| _ _ IFCIOP.EQ.l) 60_T0 230 ^ 

3:1 C 

333 DO 260 Jat.N 

3 T f _ Pa V(J,I) 

3<| V(J,I)a V ( J # K ) 

341 V ( J • k ) a P 

342 260 CONTINUE _ 

3*1. C 

3*1 00 270 Jal,M 

345 p * A(j,n 

3<"|'» A(J,I)a A ( J » K ) 

3*r A ( J » K ) a P 

343 _270 CONTINUE_ _ 

340 c 

3'|i 280 CONTINUE 

3'J. C 

352 JaN 

3j; 200 IF (Q(J) .GT.ZTEST) GO TO 300 

3'|» _ _ Q(J)*0,0 _ 

355 JaJ-1 



366 



GO TO 230 
300 I9ANK sj 

T£MP a ZTEST/0(J) 

IF (TENP.GT. .0625) IERRa-i 

’"IF CIOP.LT.' 3 ) RETURN 
IFfIOP.GT.3) GO TO 170 
DO 160 L* 1 » NOS 
00 130 JaUIRANK 
S'JMsO.O 
00 120 Isl,M 

120 S'J* =SUN ♦ A(X f J)*B(I»L) 

130 F(J)s SUM/U(J) 

00 150 KM ,N 
SUMS 0.0 

PO 140 Isl.IRANK 
140 SUM aSU M ♦ V(K f I)*E(I) 

150 P (* # L ) aSUM 
160 CONTINUE 
RETURN 

170 DO 200 Jsl.M a 


SNV03160 
' 9NV03170 
SNV0313O 
3NV03190 
SNV03200 
3NV0321 0 
SNV03220 
3NV03230 
SNV03240 
3NV03250 
" SNV03260 
3NV03270 
9NV03230 
SNV032PO 
3NV03300 
_S N V 0 3 3 1 0 
SNV03320 
SNV0333O 
SNV0334O 

SNV03350 

9NV0336 ft 

3NV03370 

3NV03380 

3NV03390 

3NV03400 

3NV03410 

3NV03420 

SNV03430 

9NV03440 

3NV03450 

3NV0346 fl 

SNV03470 

SNV034gn 
3NV03490 
SM03500 
3NV0351 o 
3NV0352O 
SNV03530 

3NV0354H 
3NV03550 
3NV035S0 
3NV03570 
3NV03530 
SNV035OO 
SNV03600 
3NV0361 n 
SN V 0 362 0 
3NV0363' 1 

SNV0364*" 1 

SNV03650 
9NV0366 n 
SNV0367*' 
3NV0368*' 
SNV036RO 
SNvr»37o^ 
SNV0371 0 
SNV0372*: 
SNV0373* 
SNV037Ui' 
SNV0375r 
SNV0376'- 
SNV0377T 
SNV0378'' 




57 

1 

00 190 1*1, N 


SNV03790 

37j 

1 

SU M «0 • o 


SNV03800 

38 0 

00 180 K«1,I9ANK 


SNV0381 0 

38' 

180 

SUM sSUM ♦ V(I,K)#A(J,K1/Q(K) 


SNV03820 

j 

190 

APLUS(I,J)« SUM 


SNV03830 

33! 

200 

CONTINUE 


SNV03*«ft 

384 C ... 



SNV03880 

3* 


!F< IOP ,EQ.tt) 9ETUPN 


SNV03860 

38 


OP 230 8*1, NOS 


SNV03870 

387 

00220 l«l#N . 


SNV03880 

38 

f 

Sl) M *0,0 


9NV03890 

38 


00 210 J* 1 # M 


3NV03900 

39 

) 210 

S*J M *SU M * APLUSCI, 


9N V 0 39 1 0 

391 

1 220 

E(n*suM 


9NV03920 

39 


00 22 5 1*1, N 


9NV03930 

3<m 

L . .225. 

B ( I , 8 ) *E ( I ) ... 


3NV039a8 

39« 230 

CONTINUE 


3NV039S0 

3 C 


PET'JPN 


3NV0396O 

3« 

— ' 

ENO 


3NV03970 




I 

I 

I 

I 

1 

1 

I 


A-33 


SUBROUTINE SUM(A,NA # d,Ne,C,NC, t0P,3YM,0UMMV) 

ILLICIT P£AL*8 (A*H,0 -Z) 

DIMENSION i(t),9(l) ( C(l), OUMMY ( 1 ) 

DIMENSION NA(2)»N0(2)#NC(2) 

LOGICAL 3 Y M 

common/conv/sumcv#rictcv,sepcv,maxsum 

IF ( TOP ,EQ. 0 ) GO T.0 tOO 

PRINT SO 

SO F0R«4T(//,» LINEAR EQUATION SOLVER X a A XC + 0 * ) 
CALL PRNT ( A, N A , 4H A ,1) 

IF ( SYM ) GO TO T5 
CALL P«NT(C#NC#4* c # n 
GO TO OS 
7S CONTINUE 
PRINT 80 

,80 FORMAT!/, • C * A TRANSPOSE * ,/ ) 

85 CONTINUE 


SUM00010 

SUMO002O 

SUM000S0 

suMOOoao 

SUM000S0 

SUMOOOAO 

SUM00070 

SUM00080 

SUMCOOPO 

SUMOOtOfl 

suMoon o 

SUM00120 

SUMOOMft 

SUMOOiao 

SUMOOISO 

SUMOOINO 

SUMOOlTft 


CALL PPNT(8,N8,«h R ,1) 

100 CONTINUE ” 

N 1 • t ♦ NA(l)*NCCi) 

. I«l 

200 CONTINUE 

CALL M ULT (A,NA#8,NB, OU m my , N0 ) 

CALL MULT (OUMMY,NR,C, NC, OUMMY (Nl) ,NB} 
CALL maxEL(B,NR,wN3) 

CALL maxEL(0UMMY<N1J #N0,WNOX) 

IF ( WNS .66. l«) GO TO_225_ _ 

IF ( wNOX/WNS ,LT. SUMCV ) GO TO 300 
GO TO 23S 

22S IF < wNOX ,LT, SUMCV ) GO TO 300 
23S CONTINUE 

CALL AOO(P,N0,OUMMY(N1) ,NB,8,NB) 

CALL MULT(A,NA,A,NA,OUMMy # NA) 

CALL EQUATE (DUMMY ,na/a7na") 

IF ( SYM ) go TO 245 

CALL MULT(C,NC,C,NC, OUMMY, NC) 

CALL EQUATE(OUMMY,NC,C,NO 
GO TO 250 
245 CONTINUE 

CALL TPANP(A,NA,C iTnC ) 

250 CONTINUE 


SUM00180 
SUM001P0 
SUM00200 
SUM00210 
9UM00220 
9UM0O230 
SUM0024O 
SUM00250 
SUM002A0 
3UM00270 
SUM0028O 
SUM00290 
3UM00300 
SUM0031 0 
3UM00320 
SUM00330 
SUM00340 
3UM003SO 

3UM0036O 

3UM0037O 

3UM00380 

SUM00390 

SUM0040O 

SUMOOUIO 

SUMQ0420 


IalM 

IF ( I ,LE. MAX3UM ) GO TO 200 
CALL LNCNT ( 3 ) 

PRINT 275.MAX3UM 

275 FORMATt//, • IN SUM , ~THE' SEQUENCE 
1 E * # 15# * WITHOUT CONVERGENCE * ) 
300 CONTINUE 

IF ( IOP , EQ • 0) RETURN 
CALL PRNT(R,N8,4m X ,1) 

RETURN 

ENO 


OF P ART I A’L SUMS H AS EXCEEDED 


SUM00430 

SUM00440 

SUM00450 

SUM00460 

STAG3UM00470 

SUMQ04F0 

3UM004Rn 

SUM00500 

SUM00510 

3UM00S2O 

SUM00530 


A-34 


SUBROUTINE 0ILINC A,NA,8,NB,C,NC, IOP,eETA,SVM,OUMMY) 
IMPLICIT real** (A.m,o«Z) 

DIMENSION A(l)#B(n#C(l ) , DUMMY ( 1 ) 

.DIMENSION NA(2),N0(2) f NCJ2) t NOUM(2} 

DIMENSION I0P(2) ' ” " ' 

LOGICAL SVM 

ir ( IOP(t) ,EQ, 0 ) GO TO 100 
IF(SYM) go TO 100 
CALL LNCNT(S) 

_ PRINT 50 

50 eormat(//,* linear equation" SOLVER ax'* XB « c *) 
CALL PRNT(A,NA,UH a ,1) 

CALL PPNT(R,NB,UH B ,1) 

GO TO 200 
100 CONTINUE 

.CALL LNCNT(l) __ 

PRINT 150 

150 F0» M AT(//, • LINEAR EQUATION SOLVER ( B TRANSPOSE )X 
CALL TRANP(A,NA,OUMMY,NOUM) 

CALL PR NT (DUMMY , NDUM, AH 8 , l ) " 

200 CONTINUE 

... CALL PRNT(C,NC,«M C 1) 

300 CONTINUE * " " ~ ”■ ' " 

IOPTT » 0. _ _ 

N«NA( 1 )**2 ~ ' " 

M«NB( 1)**2 


\ ‘ 

?R C 


IF C I OP ( 21 .EQ. 0 ) GO TO 500 
N 1 ■ N ♦ 1 

CALL E0UATE( A,NA,DUMMY,NA) 

N? ■ N 1 * NA ( 1 ) 

N3 a N2 ♦ NA ( 1 ) 

‘ ISV « 0 " ' ■ * 

IL V * 0 
NEVL a N A ( 1 ) 

CALL EIGEN (NA(1),NA(1) , DUMMY , DUMMY ( N 1 ), DUMMY (N2 ), I SV , 
111# IERP) 

IF (IERP ,EQ, 0) GO TO 350 

TALL LNCNT(l) ' " ““ " 

PRINT 325 , IERR 

325 FORMAT(//,» IN 8ILIN, THE * , IU, * EIGENVALUE OF A HAS 
lERMlMED AFTER 30 ITERATIONS*) 

IERRst 

CALL NORMS (NEVL# NEVL, NEVL, A, IERR, BET A) 

flETA*2,*0ETA " ’ 

GO TO 385 
350 CONTINUE 

J* Nt ♦ NEVL -1 
X * NJ * NEVL -1 

CO a r>SQRT(DUMMY(Ni)**2 ♦ OUMMY (N 2 ) ** 2 ) 

CN a DSORT(OUMMY(J)**2 ♦ ' dummy ( k ) **2 ) 

CD a 0IJMMY(J)-0UMMY(N1 ) 

I F ( CD .EG. 0.0) GO TO 365 

BETA s (DUMMY (Nl) *CN-OUMMY (J)‘*CO) /CO ' 

IF ( BE T A ,LE. 0.0) GO TO 365 
BETA s DSQWT(BETA) 

GO TO 385 ' • 


BIL0001 ft 
8IL00020 
8IL0003C 

BILOOOAO 

8IC00050 
BIL00060 
8IL00070 
8IL00080 
BIL000R0 
8IL0010O 
SlLOOtlft 
PIL00120 
*1100130 
8IL001U0 
8IL00150 
8IL00160 
8IL00170 
♦ X8 a C *) BIL00180 

8IL001RA 
8 IL0020 r 
8IL0021 0 
_ 81L0022 0 
8IL00230 
8lL002an 
8IL00250 
BIL00260 
BIL00270 
B!L0028O 

8IL002R0 

BIL0030" 
8IL0031 0 
8IL00320 
8IL00330 
8IL003A0 
' 8IL00350 

BIL0036C 
«IL0037^ 
ILV,V,OUMMY(N8lL0038 n 
8IL003R ft 
8IL00U0O 

' 8ILOOU10 

8IL0QU20 
NOT 8EEN OETBlLOOai^ 
BILOOUar 


365 CONTINUE 


BETA s 0.0 


6 

| 


00 175 I ■ 1,N£VL 


BIL00690 

b 

1 


J • N1 ♦ I -1 


BIL00650 

b 

3 


K ■ NJ ♦ I •! 


BIL00669 

66 . . 


IF(OUMMv(J) ,GE. 0.0) GO TO 175 


8IL00670 

6 

1 


BETA • BETA ♦ 0Sy9T(0UMMY( J)**2 ♦ dummy (k) *'*2> 


BIL006»0 

b 

1 

175 

CONTINUE 


BIL00690 

6« . 


BETA • «€TA/NCVL 


BIL00700 

7 

1 C 




BIL00710 

7 

I 

385 

CONTINUE 


8IL00720 

7 

2 C 




BIL00710 

7 

1 


ir< sym j r,o' to 5oo* 


BIL00790 

7 



CALL EQUATE (8, N8, DUMMY ,N8) 


BILO075O 

7 1 

1 




HIL00760 

76 


N2 ■ N 1 ♦NB ( 1 ) 


BIL00770 

7 

1 


N3 at N2 ♦NB(l) 


BIL00780 

7 



NEVL ■ NB( l ) 


8IL00790 

7 

9 


CALL EI5EN(N8( 1 ) ,NB( 1 ) , DUMMY. 0UMMY(N1 ) , DUMMY ( N2 ) , 

ISV, 

ILV, V, DUMMY (NBILOO 800 

8 

8 


11) , IERR) 


8IL00B1 0 

H 

I 


.IF! IERR ,EQ. 0) GO TO 950 


8IL00B20 

6 

l 


CALL LNCNTC3) 


8IL00B30 

81 


PRINT 900, IERR 


0ILOO89O 

(1 

1 

aoo 

.FORMAT!//, # IN BILIN, THE 1,19, • EIGENVALUE OF 8 

MAS 

NOT BEEN FOUNBIL00850 

f| 

1 


10 AFTER 30 ITERATIONS*) 


BIL00B6O 

8 

6 


IERR*1 


BIL00B70 

V 


CALL NORMS(NEVL,NEVL,NEVL,B, IERR,8ETA1) 


BIL00880 

M 



BE T A 1 «2 , *9ET A 1 


BIL00B90 


i. 


GO TO 985 


BIL009OO 

9$ __ 

950 

CONTINUE 


0ILOO91O 

i 


J • N 1 ♦ NEVL *1 


" ' 0ILOO929 

*i 

\ 


K a N2 ♦ NEVL •! 


BIL00930 

93- . 


CO ■ OSQRT (DUMMY (Nl) #*2 ♦ DUMMY (N2) **2) 


BIL0099P 

n 

f 


CN a 03QRT(0 UMmy( J)#*2 ♦ 0UMMY(k)**2) 


0ILOO95O 

‘ 

' 


CO ■ OlJMMY(J)-DUMMY(Nl) 


BIL00960 

_V* 

b _ 


IFtCO a E0 , 0,0) GO TO 965 


BIL00979 

97 


BET A 1 a ( OUMM Y ( N 1 ) *C N - DUMMY (J ) #C0 ) /CD 


8IL0098O 

‘ 

i 


IF ( BET A 1 ,LE. 0.0) GO TO 965 


BIL009R0 

*1 

li 


BET A 1 a 08QR T ( 8E T A 1 ) 


0ILO1OOO 

190 


60 TO 985 


BIL01010 

K I 

c 




BIL01O2P 


1 

«65 

CONTINUE . 


8IL01 030 

103 C 




SIL01090 

10- 

4 


8ET A I a 0.0 


BIL01O5O 

1 

i . 


00 975 la l.NEVL 


SIL01060 

ll 

j 


J a Ml ♦ I -l 


BIL01070 

107 


K a N2 ♦ I -1 


SILO 1 080 

‘f 

) _ . 


IFfOUMMY(J) ,GE« 0.0) GO TO 975 


8IL010RO 

ll 

» 


BET A 1 a BETA1 ♦ OSORT ( DUMMY (J) **2 ♦ DUMMY(K)**2) 


BILOl 100 

110 

975 

CONTINUE 


SIL01 1 1 0 

1 W 

t 


BETA) a RETAi/NEVL 


0ILO1 120 

i| 

? c 




BIL01130 

tP 

3 

985 

CONTINUE 


MTL01 19P 

ll« 


BETA a (BETA ♦ SET A 1 ) /2 . 


«IL01 1 “P 

11 

5 C 




8 I L 0 1 1 feO 

ll 

> 

500 

CONTINUE 


SIL01 170 

117 C 




8IL01 1 8r 


5 C 




BILOltoo 

if 

9 


IF( I0P(1) . EQ . 0 ) GO TO 520 


SIL0120P 

i" 

) 


CALL LNCNTC9) 


8IL01210 

121 


PRINT 5 15, BETA 


SIL01 2?^ 

i: 

> 

515 

FORMAT!//, * BETA a *,E16.8,/) 


8IL0123P 

ll 

i 

520 

CONTINUE 


SILO 1290 

12« C 


* A-36 


B I LO l 25 f 

1 &' 

5 


N 1 a NY 1 


RIL01260 


CALL. EQUATE(A, NA, DUMMY, NA) 

CALL EQUATE( A,NA,DUMMY(N1) ,NA) 
CALL 1C ale (dummy, n a, dummy, na, - t ,) 
.L. .*_. - NA (J ) . . 


NAX * >.'A ( l ) 

00 525 I«t,NAX 

_. L * L ♦ MAX M _ 

M| a L ♦ M 

OgMMYCL) * BETA • A (L) 

. . QlU mm Y ( M l ) * SETA ♦ A(U 
525 CONTINUE 

N? a N t ♦ N 

CALL EQUATE(C, NC, OUMMY (N2) ,_NOUM) 

MOUM(?)« NDUM(2) V N A ( 1 ) 

M5 * N2 ♦ NC ( 1 )*NC(2) 

GAM «.*2.*9ETA . 

I F ( .NOT, STM ) GO TO 600 

CALL UNITY (DUMMY (N3) ,NA _ j 
Nil l N) 4 N 

. N0UM(2). « NDgM(2) ♦ NA(ti _ 

N5 * NU ♦ NAU) 

IF AC * 0 

... . CALL GELI M (NA(n,NACt), DUMMY, N0UM(2)»DUMMYCN1),DUMMY(N«), 
l Y YN5) , IERR) 

IF ( IERR ,EQ . t ) PRINT 625 
CALL EQUATE (DUMMY (N1),NA, DUMMY, NA) 

CALL EQUATE (DUMMY (N2) ,NC,C,NC) ~ ' ' * ’ " ' 

CALL TRANP (DUMMY, N A, DUMMY (Nl) , N A ) 

CALL TRANP(DUMMY(N3) ,NA,OUMMY (N2) ,NA) 

CALL mulT(C,NC,DUMMY(N2),NA,0UMMY(N3J ,NA) ' 

CALL SCALE (OU MM Y(N3),NC,C,NC, GAM) 


CALL SUM (DUM^ Y, NA, C, NC,DUMMY (Nl) ,NA, I0PTT,3YM, DUMMY (N2) ) 
GO TO 700 
600 CONTINUE 

NU a N3 +NA( 1 ) 

I F AC * 0 

CALL GEL*m(NA(T)VnA( 1 ), DUMMY, N0UM(2)7bUMMY(Ni')',0UMMY(N3) , 
1Y(N«),I£RR) 

IF( IERR ,EQ. 1 ) PRINT 625 

625 FORMAT!//, » IN BIIIN, THE MATRIX (BET A ) I . A IS SINGULAR 
IE BETA •) 

CALL EQUATE(DUMMY(N1),NA,0UMMY l NA)_ 

CALL EQUATE f DUMMY (N2)',NC;C,NC)' ~ '' “ 

N2 a M ♦ N , 

CALL EGUATE(B,NB,0UMMY(N1),NB) 

CALL EQUATE(B,NB,DUMMY(N2) ,N8) 

CALL SCALE (DUMMY CNl) ,N8,UUMMY(N1) ,NB,-1 .0) 

Ls-Nfl(i) 

NAXsNB ( | ) * " " **' ~ 

006501 a 1 , N A X 
L=L + NAX >1 

L 1 s L ♦ N ' ' 

Ml s L ♦ M2-1 

DIJMMY ( L t ) * BETA- B'L) 

' DUMMY (Mi )- BETA ♦ B ( L) " ' ' - - 

650 CONTINUE 


BIL01270 
BIL01280 
BIL012RO 
BIL01300 
- BIL01310 

8IL01320 
BIL0I33O 
BIL013A0 
BIL01350 
BTL01 360 
BIL01370 
BTL01380 
BIL013RO 
BILOtOOO 
BILOtAlO 
8IL01«20 

BIL01A30 

BiLOiuao 

BILOiaSO 

BIL01A60 

8IL0ia70 

8IL01UAO 

BlLOtaRo 

8IL01500 
IF AC , DUMMB I L 0 1 5 1 0 
8IL01520 
BIL01530 
8IL015A0 
SILO 1550 
8IL01560 
SILO t 570 
8IL01380 

8IL015RO 

8 IL 1 I 6 OO 

8 1 L 01610 
BIL01620 
BIL01630 
BIL01640 
BIL01650 
8IL01660 
IF AC , OUMM8TLO 1670 
SIL01680 
BILOt 6R0 
, INCHEASBIL01700 
SIL01 71 ^ 


N3 a N2 ♦ M 

CALL TRAMP (DUMMY (Ml) , NS , OUMMy ( N 3 ) ,N0) 


▼ I* 

1 


I. 


CALL EQUATE ( DU^y (^3) ,N?;0UMMY(N1 ) ,N0) 
CALL TRANP(OUMMY (N2) ,N8, DUMMY (N3) ,N0) 

CALL EQ'J ATE (DUMMY (NS) , NB , Ol.'MMY ( N2 ) , N8 ) 
CALL TBANP(C»NC#DUMMY(N3) # NOUM) 

NSD'JM « NDUM(?) 

NnUM(2)s NDUM.2) ♦ N8(2) 

IP AC ■ 0 

N4«N3*NC(1)*NC(2) 

N5»N4*NB(l ) 

CALL 6ELIM(N8(1) f NB(l ) ,0UMMY(N1),N0UMC2) , 
l DUMMY (M0) , IERR) 

IF ( I FPR ,EQ, 1 ) PRINT 675 
675 FARM A T(//,*IN 0ILIN, THE MATRIX (BETA) I - 
1 BETA •) 

CALL TRANP (DUMMY (N2) , NB , OUMMy ( N i ) , NB ) 

. NDUM(2)» NSDUM 

call tramp(dummy (N3) #n6um,c # ncY 

CALL SCALE(C,NC,C»NC,GAM) . 

_N2 « N ♦ M ♦ l 

CALL SUM(DUMMY,NA,'c/nC#DUMMV(N1 J,NB,IOPTT 

-IQ 0 CONTINUE ... 

I F ( IOP(l) ,EQ, 0 ) RETURN 
CALL PRNT(C,NC,«H X ,1) 

RETURN _ 

END 


31LOIROO 
BIL01P10 
8IL0192C 
0ILO193O 
... 8IL019R0 

0ILO1PSO 
0ILO196O 
0ILO197O 
0ILfll9«n 

DUMMY (N2) , DUMMY <N«) , IFAC#0ILOtR9O 

RIL020DO 

BIL0201 0 

B IS SINGULAR, I NCREASE0ILO2O2O 

0ILO2O3O 
0 IL^SOAO 
0ILO2O5O 

8IL0?06^ 

«IL02070 
0ILO2O0O 
BIL020R0 
0ILO2lOn 
0ILO21 10 

8iL(5"2l2n 
8IL021 30 
0ILO2UO 
9IL02150 


,3YM,0UMMY(N2) ) 


i 


I 


I 

I 




i 


A- 3 8 


f 


J 
6 

i 

9 

1.0 

I 

13 

I. 

16 

* 

20 

I 

23 

•T» 

tf <5 

il- 
ls 
■I I 

30 
* « 

J; 

30 

J; 

37 

|1 

1> 

art 

Y , 


- J 

au 

t; 


07 

51 


:i: 

5a 

31 

58 

I; 

♦>1 


_ . SUBROUTINE 0ARST*( A,NA,8#NB,C,NC, I0P,3YM,EP3A,EPS8,0UMMY) 

IMPLICIT R£AL*8 (A-H,0-Z) 

0IMEN8I0N A(1),8(1),C(1),0UMMY(1) 

DIMENSION NA (2) ,nB(2) #NC(2) ,N0Umi (2) ,N0UM2(2),nDUM3(2) ,N0Um«(2) 
LOGICAL S7M 

IP ( IOP .eo. 0 ) GO TO 250 
. . IF(SYM) GO TO 100 

CALL LNCNT ( 3 ) 

PRINT 50 

50 fQRMAT(//,» LINEAR .EQUATION SOLVER„ AX ♦ X8 » C__* )_ 

CALL PRNT ( A , n A , 4H A ,1) 

CALL PPNT (B,NB,«H 8 , 1 ) 

.. GO TO 20 0 

100 continue 

CALL LNCNT ( 3 ) 

-_.-P.RINT. 150 _ _ . 

150 FQRMAT(//,* LINEAR EQUATION SOLVER ( 8 TRANSPOSE )X * X8 s C') 
CALL TRANPCA, NA, DUMMY, NOUMt ) 

CALL PRNT(0UMMY,NDUM1 ,4H 8 ,1) 

200 CONTINUE 

CALL PRNT CC , NC , «H C rl) 

250 ’CONTINUE" ’ 

CALL EQUATE(A,NA, DUMMY, NOUM1) 

Nt*(NA(l)**2)+t 
N2*N 1 ♦N A ( 1 ) • 1 
00 300IsNl,N2 

DUMMY(I)»0,0 _____ _ _ 

300 CONTINUE 

NDUM1 (2)aNOUMl (2)4-1 _ 

N01JM2 ( l ) a l 
N0UM2 C 2 ) aNDUMl (2) 

. . NlsNDUMl(U*NDUMl(2)M _ 

CALL NULL (DUMMY (N1 ) ,NOUM2) 

LUs(NA(l)+l)**2 ♦ 1 

CALL JUXTR ( DUMMY, NOUMl ,0UMMY(N1 ) , NOUM2 , DUMMY (LU ) , NDUM3 ) 

CALL EQUATE(OUMMY(LU) ,NOUMJ,bUMMY,NOUMl ) 

NsNA ( 1)4-1 

IFCSYM ) GO’ TO 500 ‘ " " r ~ 

..CALL E0UATE(8,N8,0UMMY(LU) ,NDUM2) 

M1SLU4-N8(1 )**2 
M2*.mi + nb( 1 )-l 

D0aJ0IsMl,M2 . . 

niJ^-MY (I)sO.O 
aoo CONTINUE 

N0UM2(2)sNDL'M 2(2)4-1 
NOUM 3 ( 1 ) s 1 

N0UM3(2)sN0UM2(2) 

MiaN0UM2n ) *N0tJM2(2) +LU 
CALL NULLCOU^MYCMl) ,N0UM3) 

M?sLU*(N8( 1 ) M)**2 

CALL JUXTR (DUMMY (LU) , NOUMg , D ummy ( M l ) , NDUM3 , OUMMY ( M2 ) ,NOUMU) 

CALL EGU ATE (Dummy (M2) , N0UM4 , DUMMY ( LU ) ,NDUM2) 

M*N8( l )♦ 1 .. 

LN9 a LU 

LU : LU ♦ ( N8 ( 1 ) ♦ 1 ) * *? 


8AR0001 0 
8 AR00020 
8AR00030 
8AR00040 
8AB00050 
8AR00060 
8 ARQ007 0 
8 AROOO 8 Y 1 
8 AR000R0 
BAR0010O 
"8AR00110 
8AR00120 
RAR0O .30 
8AR00iao 
RAR00150 
8AR00160 
8AR00170 
8AR001RO 
RAR00190 
RAR00200 
8AR00210 
8AR00220 
8AR00230 
BAR002AO 
RAR00250 
BAR00260 
BAR00270 
BAR00280 
0AROO29O 
BAR00300 
BAB00310 
8 AR00320 
RAR00330 
BAR003a0 
8AWQ0350 
BAR00360 
RAR00370 
8AR00380 
8AR003R0 
BAROOaOO 
3AR00U1 0 
9AR00U20 
R AB0O43O 
BARooaao 
BARQOaSO 
BAR00460 
9AR00a70 
BAPOOaBO 

BARooaon 
9AR00500 
RAR0051 0 
8 AR00520 
8 AROO530 
BAR005«0 
BAHQO550 
RAR0O560 
BAR0O57O 
B AB005«0 
RJR0059r 

B ARQ0600 


LV * LU ♦ NA(l)**2 BAROO^IO 

CALL AXPXB (DUMMY, DUMMY (LU) , Ni ( 1 ) ,N,NA ( 1) , DUMMY (LNB) , DUMMY (LV ) ,N9(1RAROO<S20 
n,M,NB(l),C,NCCl),EP5A,EPSB,NFAIL) A-39 9AB0n te 30 


X 


GO TO 600 


61 

66 


500 CONTINUE 

CALL TRANP(OUMMY r NOU«t # 0 Ummy(lUJ »NOUM?) 

CALL EQUATE (DU^my (LU) , NOUM>, DUMMY - , NOU M 1 ) 


69 C 

13 


CALL ATXPYA (DUMMY, OUMMy (LU) ,C,NA( t) ,N,NA(1 ) , NC ( 1 ) , EPS A , NF A I L ) 


600 CONTINUE 

I F ( NF A II .EQ, 0 ) 50 TO 700 

. -CALL LNCNT (3) __ __ 

POINT 650 

650 FORMAT ( / / , * IN B AR3T M , EITHER THE SUBROUTINE AXPXB OR 
_ IS unable to REDUCE A OR B TO 3CHUR FORM 
RETURN 


ATXPXA 


700. ..CONTINUE 


I F ( IOP ,NE. 0 ) 

RETURN 

END 


CALL PRNT(C,NC,uh x ,n 


0AROO6UO 
BAR0065O 
0AROO66O 
8AR00670 
9AR0O6BO 
BARQ0690 
BAR00700 
BAR0O710 
5AR007?0 
BAP00750 
" BAR0rt7U0 
«ABAR0«750 
8AR00760 
BAR00770 
8AR0O7B0 
BAR00790 
' 8AROO0OO 
BAR00B10 
8AR00820 
8AR00930 




A-40 




SU*%«OUT I Nft TESTSA* A,NA, ALPHA,OISC,STABLE, IOP,OUMMY) 
IMPLICIT PEAL*S (A*M,0-Z) 

DIMENSION A ( 1 ),DUMMV(l) 

.. -DIMENSION NA ( 2) , N0U M 1 ( 2)^NOUM2 (2) _ _ 

LOGICAL DISC, STABLE 
STABLE a .FALSE. 

CALL EQUATE(A,NA, Dummy, NA) 

Nta NA())**2 ♦ l 

.. _N2* NlfNA(l) _ _ 

N3a N 2 *N A ( 1 ) 

ISV a 0 

CALL EIGEN(NA(t),NA(l),0UMMY,DUMMY(Nn,0UMMY(N2),ISV,I3V, 
13),IFRR) 

NEVL a N A ( 1 ) 

_ IF C IEPP CL) GO.. TO 200 

CALL LNCNT(a) 

PRINT 100, IEPP 

100 FORMAT*//, » IN TE3TSA, THL IS, *_ EIGENVALUE C1P__A_hA3 NOT 


1UN0 AFTER 
RETURN 


30 ITERATIONS*,/) 


200 


CONTINUE 

NOUMi ( 1 ) 

NDUM ) (2) a 1 

CALL JUXTC(OUMMVCNt) .NOUMI, DUMMY (N2) ,NOUM1,OUMMY, 


NEVL 
1 


N0UM2) 


aoo 


2r 

ii 

33 

ll 

36 

j” 

.!? 

a 6 

n 

A3 

I 

«7 

K 

50 

f 2 ' 

54 

l: 

57 

¥ 
,4 9 
u 

61 

I* 


300 


400 


500 


550 


I.P C_ 01 SC )_ GO TO 

00 300 Iai.NEVL 

IF c OUMMY(I) # GE. ALPHA ) GO TO 600 

CONTINUE _ 

GO TO 550 
CONTINUE 

N a NDtJM?(l )*N0UM2(2) + 1 
DO 500 I al , NEVL 
K a I ♦ NEVL 
tsN ♦ I • 1 

dummy ( l ) a OSQRTC(OUMMy(I)**2)>COUMmy(K)#*?)) 
CONTINUE 


IF C DUMMY ( L ) .GE. ALPHA ) GO TO 600 


CONTINUE 
STABLE a. TRUE. 

600 CONTINUE 

IF C IOP .EQ. 0 ) RETURN 

CALL 'LNCNT (4) " 

PRINT 700 

700 FORMAT*//, * PROGRAM TO TEST THE RELATIVE STABILITY OF THE MATRIX 
1\/) 

CALL PRNT(A,NA,4H A ,1) 

CALL LNCNT (4 ) 

PRINT 750 

750 FORMAT'//,* EIGENVALUES OF A »,/) 

CALL PRNT (DUMMY, NDUM2, 4HEVLA, 1 ) 

I F ( .NOT, DISC ) GO TO 850 
CALL LNCNT ( 4 ) 

PRINT 800 

800 FORMAT*//,* MODULI OF EIGENVALUES OF A*,/) “ 

CALL PRNT* Dummy ( N ) , NOUMI , 4HMQ0A, 1 ) 


850 CONTINUE 

CALL LNCNT ( 4 ) 


A-41 


TE300010 

TES0002P 

TSS00030 

TE30004C 

TE30005 ft 

TES0006O 

TES00070 

TES000RO 

TESOOORO 
_ TES0010O 
TE300 1 l 0 
TES00120 
V,0UMMY(NTES0013O 

TE30014T 
TES00150 
TES00160 
TESOOlTf' 
TESOOlBf 
BEEN FO TESOOIRO 
TES00200 
TE30021 r 
TE300220 
T E 3 0 0 2 3 0 
TE30024C 
TE30025O 
TES0026C 
TES0027P 
TES00280 
' TES002R0 
TES0030 11 
TES003K 
T£S0032 r 
TES0033C' 
TES0034C 
T£S0'035 n 
TES0036" 
TESOOST'' 
TES0038 r 
T£3003R r 
TES004*)r 

TESOO’41 <* 

TES004?i* 
TE30043'' 
TES0044T 
TES0045 * 
TES0046C 
• TES0047- 

TE30048- 
ATES004Q 
TE30050 
TES0051 
T E S 0 0 5 ? ' 
TES0053 f 
TE30054 
TES0055 
TES0056 
TES0057 
TE30058 
TES005R 
TES006C 

TESOOfei 

TES006? 
TES0063 


<1 IF(STARLE) PRINT 900, ALPHA TFS00b«0 
bU I P( .NOT. ST ABLE ) PRINT 950, ALPHA TES00650 
tf 900 FORMAT!//,* MATRIX A IS STABLE RELATIVE TO *,Elb.S,/) TESOObbO 
1 950 FQRMATI//,* MATRIX A IS UNSTABLE RELATIVE TO *,Elb,8,/) TES00670 
6/ C TCS006RO 
6« RFTURN TESOObRO 
i> . END _ TES00700 


I 

I 

I 

I 

I 



I 


i 

i 

l 

i 

l ■ 
l 

i 

f 


■42 


i 


5 

I; 

9 

li' 

I: 

15 . 

I: 

i; 

22 
3 

a 

25 

ft 

c 9 
29 
ft 
1 
32 

0 

36 

1.7 

8 
39 

fj 

f 43 

{•a 

‘.5 

46 

ft 

i so 

ii 

53 

u 

56 

ft 

'59 

60 

t l 
2 


SUBROUTINE EXPSER( A,NA,EXPA,N£XPA,T, IOP,OUMMY) 
IMPLICIT R E A L * 9 (A-H,0-Z) 

OI M ENSION A(l),EXP4m,DUMMY(l) 

Dt M ENSION NA(2) ,N£XPA(2) 

COMMON/CONV/SUMCV,BICTCV,3EPCV,mAxSUM 

_ . N » N A ( 1 ) _ 

L a (N**2) ♦ I 
TT a T 

NFXP A ( I ) »N A ( 1 ) _ 

NgXPA (2)sNA (2) 

CALL MAXEL ( A , NA, AN AA ) 

ANAA 8 iN A A * T T 
ANAA 8 DABS(ANAA) 

IF ( ANAA , 6 T, l.E-15 ) CO TO 100 
CALL UNITY <EXPA,NEXPA) 

GO TO 900 

100 CONTINUE 
I0PT82 

CALL NORM.S(N,N,N, A, I0PT,ZE_»0) 

ZEPOaZEPO/ (2, **47) 

CALL TRCE (A,NA, TR) 

TR a TR/N 
00 200 I a 1 , N ' 

M *I*N*(I-1) 

A(M) * A(M) - TR __ __ _ 

200 CONTINUE 

IOPT si 

CALL NORMS(N,N,N,A,IOPT,COL) 

IOPT s 3 

CALL NORMS (N,N,N, A, IOPT, ROW)_ 

ANORM s ROW " 

IF ( ANORM ,GT, COL ) ANORM s COL 
TMAX s 1, /ANORM 
K 3 0 

300 CONTINUE 

I F ( Tmax - TT ) 325,350,350 
325 CONTINUE ” " 

K SK ♦ 1 

TT s T/(2**K) 

IF ( K - 1000 ) 300,700,700 
350 CONTINUE 

SC a TT _ _____ 

CALL SCALE(A,NA, A,NA,TT) 

CALL UNITY (EXPA,NEXPA) 

II a ? 

CALL AOD( a, N a, EXP a, NE*2A,DIJMMY,NA) 

CALL Ef3UATE(A,NA,DUMMY(L) ,NA) 

400 CONTINUE 

CALL MULT ( A , NA , DUMMY (L ) , N A , EXP A,NEXPA ) 

s s i , / i 

CALL SC-1LE (EXPA, NEXP4, DUMMY(L) ,NA r S) 

CALL ADO ( DUMMY (L ) , N A , OUMm y , N A , E XP A , NE X P A ) 

CALL ma/EL (DUMMY, NA, TOT) 

CALL MAXcl. (DUMMY (L) ,NA,DELT) 

I F ( TOT .GT. 1,0 ) GO TO 500 
I F ( DELT/TOT ,LT. SERCV ) GO TO 600 
GO TO 550 

500 CONTINUE * 43 

I F ( DECT ,LT, SERCV ) GO Tn *,00 



EXPOOOK 

EXP0002 r 

EXP0003C 

EXP0004T 

' EXP0005'- 
EXP0006 r 
EXPOOOTr 

EXPOOOftt' 

EXP0009C 

EXPOOlOr 

SXP001 1 <* 

EXP0012' 

EXPOO 1 3 r 

EXP0014* 

FXPOO 1 5<‘ 

EXP0016U 

6 XP ft 0 1 7 r 

EXPOOlRr 

EXPOO 1 9< 

EXP0020 ' 

EXP002 1 r 

6XP0022 r 

EXP0023'- 

EXP0024 ' 

EXPOO 25>' 

EXP0026* 

EXP0027r 

EXP0028C 

EXP0029' 

EXP0030 * 

E X P 0 0 3 1 ’ 

EXP0032'' 

EXPOO 33 |■ 

FXPft034^• 

fXP0035 

EXP ft 036' 

EXP0037'- 

E X P ft 0 3 8 

EXP0039' 

E X P C 0 4 ft ' 

EXP0041 

EXP004? 

EXP0043 

EXP004U 

EXP0045 

EXP0046 

EXP0047 

EXP004A 

EXP0049 

EXP005ft 
EXP0051 
EXP0052 
EXP0053 
EXP0054 
EXP0055 
EXP0056 
EXP0O57 
E XPftftSF 
EXPQ05 0 
gxP006ft 
EXP0061 
EXP006? 
EXPftft63 


I 


J 


65 

,6 

7 

9 

69 

1 


( 


i 


t 

72 

I; 


550 CONTINUE 

CALL E0UATE(EXPA,NEXPA,D'JMMY,NA) 
IT ■ II ♦ 1 
00 TO 400 


600 CONTINUE 

IF ( K ) 625,675,650 
625 CONTINUE 

CALL LNCNT(l) 

. PQLNT 655 ... 

635 FORMAT! • ERROR IN EXP3ER, 
RETURN 


K 13 NEGATIVE * ) 


EXP00646 

EXP00650 

EXP00660 

EXP0067C 

EXP0068 r 

EXP006R° 

EXP0070 0 

EXP00710 

EXP00721 

EXP00730 

'EXP007««' 

EXP0075*' 

EXP0076* 


76 


650 

CONTINUE 

EXP 0077 -- 

1 7 



00 660 I « 1 ,K 

EXP 0078 C 

le 



TT * 2 *TT 

EXP 007 ° r 

79 



CALL EOUATE(EXPA,NEXPA,DUMMY,NA j 

’ ExPOOAor 

i° 



CALL EOU ATE ( DUMMY, NA, DUMMY (L) ,NA) 

EXP 0081 r 

|i 



CALL MULT(DU*MY(L) ,NA, QUMM y , N A , EXP A , N£X P A ) 

EXP 0082 ' 

82 


660 

CONTINUE 

EXP 0083 r 

33 



T * TT 

EXP 0084 '* 

l a 


675 

CONTINUE 

EXP 0085 r 

IS 



3 * i./SC 

EXP 0086 -' 

86 



CALL SCALE(A,NA, A,NA, 3 ) 

EXP 0087 

1 7 



00 685 I * t * N .... 

EXP 0088 C 

18 



M * I ♦ N*(I- 1 ) 

EXPOOAR^ 

80 



A (M) s A(M) ♦ TR 

EXPOOROf* 

,°0 



IF C 0 A 0 S ( A (M ) } .LE. ZERO ) ACM) s 0.0 

EXP 009 K 

1 


685 

CONTINUE 

EXP 00 O 2 " 

*»2 

c 



EXP 00 R 3 1 " 

03 



TR*TR*T. . 

EXP 00 R 4 C 

! a 



3 » DEXPCT ) 

EXPOORS'' 

1 5 



CALL SCALE(EXPA,NEXPA,EXPA,NEXPA, 3 ) 

EXP 00 R 6 <‘ 

06 . 



.GO TO 900 _ .... . . 

EXP 00 R 7 r 

f 7 

c 



EXP 00 R 8 '' 

j '8 


700 

CONTINUE 

E X P 0 0 R R i‘ 




CALL LNCMTC l ) ... 

EXPOIOO 1 ' 

100 



PRINT 750 

EXPO 1 0 1 

ll'l 


750 

FORMATS ERROR IN EXPSER, K a 1000 ») 

EXP 010 ?'- 

J 2 



RETURN 

E x P 0 1 0 3 '' 

103 

c 



EXPOioa 

.p a 


800 

CONTINUE 

EXPO 1 05 • 

:j »5 



I F C IOP ,E 0 , 0 ) RETURN 

EXPO 1 06 

106 



CALL LNCNTC 4 ) 

EXPO 1 07 ' 

107 



PRINT 825 

EXP 01 08 

1)8 


825 

FORMATC//* COMPUTATION OF THE MATRIX EXPONENTIAL EXP(A T) BY THE 

3 EXPOIOO 

Jjo 


IEPIE 3 M E THOD */) 

EXPOl 1 0 

110 



CALL PRNT'A,NA,«H A , 1 ) 

E*POl 1 1 

1.1 



CALL LNCMTC 3 ) 

EXPOl 1 ? 

j 2 



PPINT * 50 , T 

EXPOl 13 

113 


850 

FORMATC/* T s *, 016 . 8 /) 

EXPOl 1 4 

U 4 



CALL PRNT(EXPA,NEXPA, 4 HEXPA, 1 ) 

EXPOl 15 

1.5 



QPTUffN 

EXPOl lb 

» i 6 



EMP 

EXPOl 1 7 


A- 4 4 


6 . 

7 

•4 

10 


15 10 

' '4 C ** 

> c 

16 C ** 

17 

3 


** 


SUBROUTINE EXPAOE (MAX, N, A, _EA, IDIG, WK, IERP) 
IMPLICIT REAL*® (A-h,0-Z>‘~ 

DIMENSION A(MAX,N) ,EA(MAX,N),WK(N, !),C(9) 

R£AL*a SDIGC,ALOGIO 

ierr ■ 0 ' ~ 

calculate NORM OF A 

ANORM_ s 0. _ _ 

00 10 'l*t ,N '■ " ' “ ' ' ' 

S s 0. 

00_5 J*1,N _ 

S r S ♦ DABS ( A ( I » J ) ) 

CONTINUE 

IF (S ,GT, ANORM) ANORM a 9 _ _ 

CONTINUE 

F 

_C At C U LIT E_A CCURACY ES TIMATE 


»* 


*7 

20 

L_C 

2 C ** 

25 

"4 

5 

tb 

27 


OIGC 8 ?A,*DFLOAT(N) 

I F (ANORM . GJT , J_, ) PIGC ■ OIGC*ANQR M _ 

SOIGCsOIGC 

IOIG 8 15 - IFIX(ALOG10(SOIGC) ♦ ,5) 

DETERMINE POWER OF two ANP NORMALIZATION FAC TOR 


** 


■v> 


20 

C ** 

C .... 

c ** 


8 

.9 15 

5.0 

1 
2 
55 

5 

.•»6 
57 
8 
9 

ao 
l 


M 8 0 

JF (ANORM ,LE,_1,; GO TO 2 7 

FACTOR s2. 

DO 15 Mel ,446 

IF (ANORM .LE. FACTOR) GO TO 20 

FACTOR s FACTOR*2. 

CONTINUE 

GO. TO. 125 . 

CONTINUE 


25 

_ 2.7.. 

C ** 
C 

2L_C._** 

a5 

aa 

‘5 

*b 
a 7 


* * 

NOPMALIZE ..MATRIX 

* * 

DO 25 I»l,rj 

DO 25 Js 1 , N _ 

A ( I , J ) « A(I,J)/FACTOR 
CONTINUE 

CONTINUE.. 

** 





'\fs. 


SET COEFFICIENTS FOR (9,9) FADE TABLE ENTRY 


** 


C(l) 8 ,5 

C (2) s I.l76a7058825520-01 
CC3) b 1 .71568627445098 0-0 2 
C(«) e 1.7l5'686274450980-03 
C (5) s 1 ,?25a90196078a0-044 


;8 

C .( 6 ) 

19 

C(7) 

50 

C ( 8 ) 

51 

C ( 9.1. 

i2 C 

*** * 

S3 C 

CALC 

sa _c 

**** 

i 5 

NP1 

56 

NP7 

57_ 

00 9 


C(9I_ 8.5.6678?782.«7605D^_1 

CALCULATE PADE NUMERATOR AND DENOMINATOR BY COLUMNS 


58 

59 

60 

lU 


c ** 
c 

C. _** 


* * 


** 


COMPUTE JTH COLUMN OF FIRST NINE POWERS OF A 

DO 35 I si, N " ““ ” A-45 

S = 0, 


EXP00010 

EXP00020 

EXP00030 

EXP0O0440 

EXP00050 

EXP00060 

EXP00070 

EXP00080 

EXP00090 

EXP001 00 

EKPOTllO' 

EXP00120 

EXP00130 

* ‘ Expooiao 

EXP00150 
EXP00160 
EXP0/170 
EXP001 80 
EXP00190 
TXP00200 
EXP00210 
EXP00220 

EXP00230 

EXP00200 
EXP00250 
EXP00260 
EXP00270 
EXP00280 
EXP00290 
EXP00300 
EXP0031 0 

EXP00320 

EXP0033C 
EXP0034C 
EXP0035C 
EXP0036I 
EXP0037C 
“ EXP0038( 

EXP0039( 
EXP004I0( 
EXPOOATC 
EXP00fl2( 

EXP00«3( 

EXPOOtfAi 
EXP00A5< 
EXP00446I 
EXPO*Ol47i 
EXP00448( 
EXP004I9I 
“ ~EXP0050i 

EXP0051 1 
EXP0052 1 
ESTP0053' 
EXP0054 
EXP0055 
EXP0056 
EXP0057 
EXP0058 
EXP 0059 
EXP0060 
EXP0061 
’ EXP006? 
EXP0063 


‘3 

4 

*S 

66 . 

7 

*8 


30 

35 “ 


On 30 L*1 ,n 

S * S ♦ A(I,L)*A(L,J) 
CONTINUE 

WK(I,NPl)_a 3 

CONTINUE 

00 AS * *NP 1 1 NP 7 


69 . 

KP 1 « Kfl 

0 

00 A 5 1 * 1 , N 

1 

S * 0 , 

7.2 

. PO AO L« 


8*3 

A AO 

CONTINUE 

i.5. 

WK(I,KPt 

76 A 5 

CONTINUE 

7 C **** 



0 . 

79 

*0 

L 

02 

03 

<L 

o 5 

86 

7 _ 

'8 


C *•** 


COLLECT TE RMS FOR JTH COL UMN OF NUMf RATOR_ AND DENO MIN ATOR _ 

00 85 1*1, N 

.8..S.0, 

U « 0 . 


DO 65 L*l ,8 

_ K_ « . N 49 -L 

KN 1 a K»N 4 1 
P s C(KNl)*WK(I,K) 
_ S = S ♦ P 


IEO a MOO (KN 1 , 2 ) 


EXP 006 AC 
EHP 0065 C 
EXP 0066 C 
EXP 0067 C 
~E XPOOSBC 
EXP 0069 C 
EXP 0070 C 
EXP 0071 C 
EXP 007 PC 
EXP 0073 C 
EXP 007 At 
EXP 0075 ( 
EXP 0076 ( 
EXP 0077 ( 
EXP 0078 ( 
EXP 0079 ( 
~EXP 0080 < 
EXPOO 0 K 
EXP 00821 
EXPO 8031 
EXPOOBA) 
EXP 0085 ' 
EXPO 086 i 
EXP 0087 i 
EXP 0088 ' 
"EXP 00 89 ' 


89 


IF (IEO.EQ.O) GO TO 55 

EXP0090 

°0_ 


U a U • P 

EXP0091 

»1 


GO TO 65 

EXP0092 

92 

55 

CONTINUE 

EXP0093 

93 


U * U ♦ P 

EXP009A 

>U 

65 

CONTINUE "*-.i ‘ 

EXP0095 

•5 


P * C(1)*A(I,J) 

EXP0096 

96_ 


S * S ♦ P 

EXP0097 

^7 


U a U • P 

' EXPOO90 

>8 


IF (I ,NE. J) GO TO 80 

EXP0099 

99 


S * S ♦ 1, 

EXP0100 

00 


U * U ♦ 1. 

EXPOlO'l 

)1 

80 

CONTINUE 

EXP010? 

J2_ 


E A C I f J ) * S 

EX 1 * 0 1 03 

03 


WK ( I , j ) a U 

E?poroA 

1 A 

85 

CONTINUE 

EXP0105 

15 

95 

CONTINUE 

EXPO 1 06 

06 

c **** 


' “ ’ " EXPO 107 

07 

c 

CALCULATE NORMALIZED EXP(A) BY WK * EXP(A) a EA 

EXPO 1 08 

>8 

c **•* 

EXP010* 

09 


CALL GAUSEL (MAX , N , WK , N , E A , I ERR ) 

' exp wo 

10 


IF (IERR .NE. 0) GO TO 130 

EXPO 1 1 1 

11 


IF_JM ,E0. 0) GO TO 130 

EXP01 12 

12 

c **** 


EXPO 1 11 

13 

c 

TAKE OUT EFFECT OF NORMALIZATION ON EXPfA) 

EXP01 1 A 

1A 

c **** 


EXP01 15 

15" 


DO 120 K = 1 , M 

. ~~TXPorr6 

16 


DO tlO 1=1, N 

EXP01 17 

17 


DO 110 Jal t N 

expoi ip 

18 


S a 0. 

' EXP0119 

19 


DO 105 L=1,N 

EXPO 1 20 

20 


S a S ♦ E A ( I , L ) *E A (L, J ) 

EXPO 1 2 1 

>r 

105 

CONTINUE 

EXPO 1 22 

?? 


WK ( I # J ) a S 

EXPO 1 23 

23 

110 

CONTINUE 

EYP012A 

?A 


DO 115 I = l , N ' A-4b 

EXPO 1 25 

?5 


DO 115 J a 1 f N 

EXPO 1 2fe 


'b E A ( I , J ) a WKiI,J) 

7 115 CONTINUE 

eS 120 CONTINUE 

29. C ***• 

o' c un-normalize' a 

.1 c **** 

32 00 122 Ial,N 

3 00 122 J* 1 # N 

« A(I,J) a A ( I # J ) *F ACTOR 

35 __1 22 . CONTINUE 

'6 GO TO 130 , 

7 C **** 

C NORM OF A IS EXCESSIVE 

39 C **•* 

0 125 CONTINUE 

1 IERR_«_ 1 

«2 C **** 

•3 C EXIT ROUTINE 

tq C **** 

US 130 CONTINUE 
at RETURN 

1 7 END 


EXP01270 i-S 
EXR01280 
EXPO l 290 
EXP01300 

Exponro 

EXPO! 320 

EXP01330 

EXP01390 

EXP01350 

EXP0136C 

EXPOntC 

EXP0138C 

EXP0139C 

EXP01R0C 

EXP01RIC 

EXP0U2C ! 

EIP0lR3( 

expoi««( 

EXP01R5( 

EXP0U6( 

EXPOia?( | 

EXPOUBt 




_ S> SUBROUTINE expint (a,na,b,nb,c,nc,t, IOP,DU mm Y) 

l IMPLICIT realms (A-H.o-Z) 

? dimension A(n,e(i),c(n»ouMMv(n 

„3 DIMENSION NA(2),N8(2),NCJ2) __ 

4 COMvON/CONV/SUMCV,RICTCV#SERCV,MAXSU M 

5 N a NA(1) 

..6_ L « (N**2)4l 

7 NCC1) ■ NA (l ) 

8 NCC21 ■ NA(2J 

_.9 N0U).«.MU) .... 

10 NBC2) * N A ( 2 ) 

11 TT • T 

_12_C ... .. 

13 I OPT • 1 

14 CALL NORMS(N,N,N, A,IOPr,COL) 

.15 IOPT o 3 __ 

16 CALL N0RM8(N,N,N, A, IOPT, ROW) 

17 ANAA s COL 

IB I£(_ANAA_.GT, ROW I ANA A ■ PQ W 

19 TMAX s 1,/ANAA 

20 K 8 0 

_.2J 100.XONTINUE_ _ 

22 IF( Tmax - TT ) 125,150,150 

23 125 CONTINUE 

. 24_ _K_* K 4..1 . C. 

25 TT * T/(2**K) 

26 IFC K • 1000 )100,600,600 


28 150 CONTINUE 

29 SC * TT 

_ 30 CALL SC ALE ( A , NA, A, NA , TT ) _ 

31 CALL UNITY (9,NB) 

32 CALL SCALE(8,NB, DUMMY, NB,TT) 

_33 S * TT/2. 

34 CALL SCALE(A,NA,DUMmy(L),NA,S) 


35 II s 2 

36 _ CALL ADD(DUMMY, NA, DUMMY (L) ,NA r DUMMY(L) ,NA) 

37 CALL ADDC A , N A , 8, NB , DUMMY , N A ) 

38 CALL EOUATE(A r NA,C,NC) 

39 200 CONJINUE __ 

40 CALL MULT(A,NA,C,NC,8,N0j 

41 S * l./II 

42 _ CALL SCALE(B,N8,C,NC,9) 

43 CALL MAXEL(DUMMY,NA,TOT) 

44 CALL MAXEL(C,NC,OELT) 

45 IP C TOT .GT. 1.0 ) GO TO 300 

46 ’ IFC DELT/TOT .LT , SERCV ) GOTO 4O~0 

47 GO TO 350 

48 300 CONTINUE 

49 IFC DELT .LT. SERCV ) ' GO TO - 400 " ~ 

50 350 CONTINUE 

51 S * TT/CII * 1) 

, 52 ' CALL SCALE(C,NC,8,NB,S) 

i 53 CALL ADO(8,N8,OUMMYCU ,NB,DUMMY(L) ,NB) 

54 CALL AOD(C,NC, DUMMY, NC, DUMMY, NC) 

! 55" II * II T 1 

56 GO TO 200 

57 C_ 

58 400 CONTINUE 

| 59 CALL EOUATE(DUMMY,NB f 8,NB) 

1 6 0 I r C K ) 425,500,450 

ol ~ 425 CONTINUE 

« 62 CALL LNCNTC11 A _ 48 


EXPQC 
‘EXPOC 
EXPOO 
EXPOO 
EXPOO 
EXPOO 
EXPOO 
EXPOO 
EXPOO 
EXPOO 
EXPO'O 
EXPOO 
EXPOO 
EXPOO 
EXPOO 
EXPOO 
EXPOO 
EXPOO 
EXPOO 
EXPOO'. 
EXPOO. 
EXPOOi 
EXPO*; 

expoo; 

expoo; 

expoo; 

expoo; 

expoo; 

expoo; 

expoo? 

EXP003 
EXPOO 3 
EXP003 
EXPOOI 
EXP003 
EXP003 
EXP003 
EXP003 
EXP003 
EXP004 
EXP004 
EXP004 
EXP004 
EXP004 
EXP004 
EXPOO 4 
EXP004 
EXP004 
EXP004 
EXP005 
EXP005 
EXP005, 
EXP005 
EXP005< 
EXP005' 
" EXP005I 
EXP005 
EXP005» 
EXP005 ( 
EXP006( 
EXP0061 
EXP006; 
EXP0063 


r 


5 . PRU-T <435 

« u J5 FORMAT!* ERROR IN EXPINT, K IS NEGATIVE*) 

65 RETURN 

c . _ _ 

7 <450 CONTINUE 

08 DO «75 J * t*« 

69 TT « 2*TT . 

0 CALL EQUATE ! 8#NB#0UMMY »N8) 

1 CALL MULT(OU“My,NA,OU*"Y(L) #NA,C,NC) 

72 CALL AOD(DUMMY(L),NC,C,NC,DUMMY(L),NC)_- - 

” J CALL MULT (OUMMV,N0, DUMMY, NB,B,N8) 

a 4475 CONTINUE 

75 T * TT . __ __ 

76 C 

‘7 500 CONTINUE 

, 8 C AL L_E OU A IE ( DUMMY* l ) ,NC,.C,NC ) 

79 S ■ 1./8C 

'0 CALL SCALE!A,NA,A,NA,3) 

82 iFrfoP .eqTo )"return 

83 CALL LNCNTC5) 

39 RRINT..55Q ...... . . . .. .._ _ 

85 550 FORMAT!//,* COMPUTATION OF THE MATRIX EXPONENTIAL EXP(A f)*,/, 

86 1 NO ITS INTEGRAL OVER !0,T) 8V THE SERIES METHOD ♦,/) 

37 CALL_PRNT(A,NA,«H A ,t) ** 

38 CALL LNCNTC3) 

89 PRINT 575, T 

?0 5J5 .FORMAT!/, T s *,016.8,/) 

?1 CALL PRNT(B,N8,4»HEXPA,1) 

92 CALL PRNT(C,NC,«HINT , !) 

93 RETURN . . 

79 C 

75 600 CONTINUE 

96 CALL LNCNTCl) . ._ . 

97 PRINT 650 

98 650 FORMAT! * ERROR IN EXPINT, K s 1000 # ) 

99 _ . . RETURN _ __ ... . ... 

' 00 C 

)1 END 


E *P006<4( 
EXP0065C 
EXP0066! 
€XP006?f 
EXPOObAf 
EXP0069( 
EXP0O704 
EXP007K 
EXP00724 
EXP0073< 
~ EXP0"07<4< 
EXPOOT54 
EXP0076» 
EXP00774 
EXP0078* 
EXP0079< 
Exp 0080 ( 
EXP008K 
_ EXP0082* 
EXP0083* 
Expooeat 
EXP0085< 
# AEXP0086' 
EXP0087' 
EXP0088 
EXP0089. 
EXP0090. 
EXP0091 i 
EXP0092 
EXP009J 
EXP00944 
EXP0095 
EXP0096 
__EXP0097 
EXP0098 
EXP0099 
_ EXP0100 
EXPO 1 0 1 
EXP0102 
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0_ 

1 

2 

y 

u 

5 

,. 6 _ 

7 

6 

JL. 

’0 

i 


25 


1 


_«5_FOR.‘ 
55 


1 2 35 

13 1 
.a 

5 

16 
17 
l ft. 

19 

20 

>1 

22 65 

23 

?4 

>5 

26 75 

27_C 

?8 65 

29 

30 C_.. 

31 100 

32 

33 

34 

35 
36_ 

37 C 

36 

39 

40 
«1 

42_C 

43 200 

44 

45 

46 

47 

ue 

49 

50 

51 

52 C 

53 250 

5.4 _ 

55 

56 C 

57 

58 

59 

60 
61 
62 


SUBROUTINE VARANC! A,NA,G,NG,Q,NQ,*,NW, IDENT,D!SC#IOP,UU M My ) 

implicit peal** (a-h,o-z) 

DIMENSION A ( 1 ) , c ( 1) , Q C 1 ) , W ( n , dummy ( \ ) 

DIMENSION NA(2),NG(2),NQ(2),Nw(2) ,NDUMJ ( 2 ), I OP ( 3 >, I OPT ( 2J 
logical IOENT, DISC, Sym~ 

C0MM0N/T0L/EPSAM,EP9BP# I ACM 
JF ( IOP(l) ,EQ, 0 ) GO TO 100 
CALL LNCNT(S) 

IP( DISC ) PRINT 25 

IF ( .NOT, OISC ) PRINT 35 _ 

FORMAT! V,* PROGRAM TO SOLVE FOR THE STE ADY-ST ATE VARIANCE MATRIX 
,/,» FOR A LINEAR DISCRETE SYSTEM*,/) 

FORMAT!//, * FROGRAM TO SOLVE FOR THE STEADI-STATE VARIANCE MATRIX 
',/,* FOP A“ LINEAR CONTINUOUS SYSTEM*,/) 

CALL PRNT ( A , NA , 4H A ,1) 

IF ( .NOT , IOENT ) 60 TO 5 5 

CALL LNCNT(3) 

PRINT 45 

FORMAT ( / , *_G_J3 AN_IOEJL t JJY_MATRIX J^./) _ _ 

GO TO 65 
CONTINUE 

£ALL_.PPNT(G,NG,4H G _,J_) 

CONTINUE 

IF ( .NOT. IOENT ) GO TO 85 

C ALL.LNCNT (3) . .. _ ... 

PRINT 75 

FORMAT!/, * INTENSITY MATRIX FOR COVARIANCE OF PROCESS NOISE *,/) 

CONTINUE " 

CALL PRNT (Q , NQ , 4H 0 ,1) 

CONTINUE " 

IF( IOENT ) GO TO 200 

CALL MULT(G,NG,0, NO, DUMMY, NG) ... _ 

N 1 * NG ! 1 ) *NG (2) + 1 

CALL TR ANP!G,NG, DUMMY ( Nl ),NOUMl) 

CALL MULT(0UMMy,NG,DUMMY!N1),N0UM1,Q,NQ) _ 

IF ( IOPC1) .EO. 0 ) GO TO 200 

.CALL_tNCNT(3). .... _ _ . 

PRINT 75 0 

CALL PRNT (0, NO, 4HG0GT , 1 ) A . 


y ' 


% 


.300 


CONTINUE 

IF ( .NOT. OISC) CALL SCALE (W,NW,W, NW,-1 , 0) V /* 

. I OPT (l ) b IOP(2) 

I OPT! 2) s 1 vV. 

SYM s .TRUE. 

IF ( DISC ) GO TO 300 _ _ „ . _ ...... 

IF! I0P!3) .EO. 0 ) GO TO 250 

CALL BILIN! A,NA, A,NA,*,Nw, I OPT , BET A , SYM , DUMMY ) 

CO.JT.0..400 _ .. 

CONTINUE 

CALL BARSTP(A,NA,A,NA,W,NW,IOPT,SYM,EPSA,EPSA, DUMMY ) 

GO TO 400 

CONTINUE . ... . _ _ 

CALL EQUATE! A,NA,OUMmy,NA) 

N = NA(1)**? 

Nl s N ♦ 1 ... 

CALL TRANP(A,NA,D'Jmmy(Ni ),NA) A-50 

N2 : Ml + N 


VAP0001 • 

V AR0002' 

V AB0603' 
VAR0O04 

‘VAR0005 

VAR0006 

VAR0007 

"VAP0008 

V AR0009 
VAR0010 

* V AROO l 1 

V AR 00 1 2 
♦VAR0013 
” V AROO 1 4 

V AROO 1 5 

V AROO 1 6 
“VAR0017 

VAR0016 

V AROO 1 9 
VAR0020 
VAR0021 
VAP0022 
V AR0023 
VARC024 
VAP0025 
VAR0026 
VAR0027 
VAR0026 
VAR002O 
VAR0030 

V A R 0 0 3 1 
* R0032 

VAR0033 
VAR0034 
~ VAR0035 
VAR0036 
VAR0037 
VAR0036 
VAR0039 
V* *0040 

* V A R 0 0 4 1 
VAR0042 

V A B 0 0 4 3 
VAR 0044 
VAP0045 

V AR 0046 

V A R 0 04 7 
VAR0048 
VAR0049 

" VAR0050 
VAR0051 
VARQ052 
VAR 0053 

VAR0056 

VAR0057 

V AR005 e 

V AR0059 
~ VARQ06C 

VAR0061 

V AP 0062 
VAR006? 
VAROOfoi 


c ALL SU*(OU** M Y , NA,ft,NW,DUMMY (NJ ) , N A , I OPT , SVM , DUMMY ( N? ) ) 


63 
6<i C 

65 «00 CONTINUE 

66 IF ( I0P(1) .EO, .0. J_RETJJR_N 

67 CALL LNCNT (3) 

fc 0 PP I NT <150 


69.. ..<150 FORMAT C / » * VARIANCE matrix •,/) 

70 CALL PRNT (WfNNfUH k , 1) 

71 C 

7 2 RETURN 

73 END 


VAR006* 

V AR006* 
VAR006' 
VAR006* 
VAR006‘ 

V AR007I 
VAR007 
VAR007I 
VAR007! 
VAR007< 
VAR067? 


1 



0 SUBROUTINE CTBOL(A,NA,R,NB,C f NC,IOP,IAC, JRANK,DJNMY) CTROOO 

1 implicit realms (a-»,o-z> . - - CTROOO 

2 DIMENSION A(l),B(n,C(l)#OUMMY(l) CTROOO 

__3 OI M ENSION NA(2) ,NB(2) ,NC(2J_,NV<2) ,I0P(5) _ CTROOO 

A Ns NA(!)*N9(2) " CTROOO 

5 N 1 s Nfi CTROOO 

6 N2 * N 1 *N _ _ __ CTROOO 

7 K s NA(1)-1 ~ . CTROOO 

8 J s 1 CTROOO 

__9_L _____ CTR001 

10 CALL EQUATE(B,NP,0UMMY(N2),NV) " * CTR001 

11 CALL EQUATE(B,NB,OUMMY,NB) CTR001 

12 1Q0 CONTINUE^ _ _ CTR001 

13 CALL mult<a,na,dummy,nb,60mmy(ni) ,N 0j "ctrooT 

1 A CALL JUXTC(DUMMY(N2),NV,DUMMY(N1),NB,C,NC) CTR001 

1 5 C CTR001 

16 IP ( J .EG. K j GO TO 200 "CTPO&T 

17 C CTR001 

IB C.4LL_E0UATE(DUMMY(NU,NB, DUMMY, NB)„ _ _ CTR001 

19 CALL EQU ATE ( C , NC , OUMMY (N2) ,NV ) ' CTR002 

20 J * J ♦ 1 CTR002 

Jtl _G 0 ._T 0 10.0 CTR002 

22 C ... CTR002 

23 200 CONTINUE CTR002 

?A C __J? CTR002 

25 IFCIOPU) .EQ. 0 ) GO TO 300 ' " CTR002 

26 CALL PRNT(A,NA,«H A ,1) CTR002 

27 CALL PRNTCB,NB,«H B , 1_)_ _ CTR002 

26 CALL LNCNTU) ” * ” ' CTR002 

29 PRINT 250 CTR003 

_30 250 FORMAT!//,* THE MATRIX C IS THE CONTROLLABILITY MATRIX FOR THE A/CTR003 

31 IB PAIR*,/) - ‘ "" CTR003 

32 CALL PRNT(C,NC,AH C ,1) CTR003 

33 C _ CTR003 

3«” 300 I F ( I OP (2) ,EQ.~ 6 ) RETURN ' ' "CTR003 

35 NOS = 0 CTR003 

36 __ IOPT = 2 CTR003 

37 K = NC( 2 ) ' ’ ‘ CTR003 

38 NC f 2) a NB( 2 )*(NA (2)-NB(2)*>1) CTR003 

39 N sJC ( 1 ) *NC (2 ) CTROOA 

* AO CALL TRANP~(C,NC,'DUMmV,W) ' ' CTROOU 

A 1 NC ( 2) a K CTROOA 

A2 N 1 * N ♦ 1 _ CTROOA 

A3~ N2 V Nt +*NV(2) " CTROOA 

AA CALL SNVDEC(I0PT,NV(l),NV(2),NVCn fNV(2) #DUMMY,NOS#B,IAC,ZTEST,DUMCTROOA 

A5 l«Y(Nn,DUMMY(N 2 )#IRANK,A,IERR) CTROOA 

A 6 IF C I ERR , EO, 6 ) GO TO "3 AO " “ CTROOT 

A7 CALL LNCNT(S) CTROOA 

A 8 I F ( IERR .GT. 0 ) PRINT 310,IEPR CTROOA 

A 9 I F ( I ERR"”". EG, -1 ) PRINT 320, ZTESTV'IRANK * ' ™ CTR005 

50 310 FORMATC//,* IN CTROL# SNVDEC HAS FAILED TO CONVERGE TO THE ',IA, *CTR005 

51 1 SINGULAR VALUE AFTER 30 ITERATIONS •) CTR005 

'52 320 FORMAT!//,"* IN CTROL, THE" MATRIX SUBMITTED TO SNVDEC USING ZTEST' aCTR005 

53 1*»D16,8» # IS CLOSE TO A MATRIX WHICH IS OF LOWER RANK*,/,' IF THE CTR005 

5A 2 ACCURACACY IS REDUCED THE RANK MAY ALSO BE REDUCED *, /,* CURRENT R ACTR005 

55 " " 3 NK a f , I u ) * . . . - - CTR005 

56 IF C IERR .GT. 0 ) RETURN CTR005 

57 C_ _ CTR005 

58 3 AO CONTINUE " CTR005 

59 I F ( I0P(3) .EO. 0 ) GO TO AOO CTR006 

60 C ALL LNCNT ( 6 ) CTR006 

61 "PRINT 350, ZTEST, IRANK CTR006 


62 350 FORMAT!//,* BASED ON THE ZERO-TEST *,D16.B,» THE RANK OF THE CONTRCTR006 

A-52 


:j 

I 


\ 

:1 

1 

| 


4 

j 


4 

i 

| 

<1 

3 


3 

1 


\ 


1 

\ 

] 


I j 


i : 

i ■ 

% . 
' 


61. 

6a 

65 

.66 . 

67 

68 C 

69 aOQ 

70 

71 

72 

73 
7a 

-75 

76 

77 
-LB. 


lOLLAPIlITV MATRIX IS *,la,/,* THE SINGULAR VALUES APE *,/) 

I OPT s 0 
N V ( 1 ) * N V ( P > 

. . ..NVf 2)s.l _ 

CALL PRNT(OUMMY(M),NV,iOPT»3) 

IF( IOP(a) .EG. 0 ) RETURN _ _ 

N = NA ( 1 ) **2 

CALL EQUATE ( DUMMY (N2) , NA , DUMMY , NA ) 

N .4 1 

N 1 


__.N1 = 
N? s 
CALL 
CALL 
CALL 
CALL 


4 N 

MULT (A, NA. DUMMY, NA,DUMMY(N1 ) ,NA) 

TPANP(DUMMY,NA, DUMMY CN2) ,NA) 

EQUATE (DUMMY (N2),NA, DUMMY, NA) 

MUL T( DUMMY, N A, DUMMY (N1 ) , N A , DUMMY ( N2 ) , N A ) 


79 C 

80 

_8) 


_CALL_MULT.(DU MW , N A , Bj NB 1 DUMM V (N_ l )_r N_B )_ 



IFf IOP ( 5 ) .EG. 0 ) RETURN 

C A U.LNCNU5 ) 

PP ; NT 500 

500 formats/,* controllability 
1_V_! 1 


CANONICAL FORM »,/, * (V TRANSPOSE) A 


CALL PPNT(DUMMYCN2),NA,IOPT#3) 
CALL LNCNT(2) 

PRINT 510. _ 

FORMAT(/,» (V TRANSPOSE ) B *) 
CALL PRNTCDUMMY(N1),N6,I0PT#3) 

CALL. L.NCNT (2) 

PRINT 520 

FORMATC/,' V TRANSPOSE*) 

CALL PRNICDUMMY,NA,IO.PT,3) 

RETURN 

ENO . 


CTRO 

CTRO 

CTPO 

CTRO 

CTRO 

CTRO 

CTRO 

CTRO 

CTRO 

CTRO' 

CTRO' 

CTRO' 

CTR0< 

CTRO< 

CTRO< 

CTROf 

CTRO' 

CTROC 

CTROC 

CTROf 

CTROf 

CTROC 

"CTROC 

CTROC 

CTROC 

'CTROO 

CTROO 

CTROO 

CTROO 

CTROO 

CTROO 

CTROO 

CTROO 

CTROO 


SUBROUTINE TRNSIT( A,NA,B,NB#M,NH,G#NG,F,NF ,v,nv,t,x,nx,di_sc#stabl 
IE# IOP#OU MM Y) 

IMPLICIT «EAl*8 (A-H.O-Z) 

DIMENSION ACl),8U)#H(l)#CU)#F(l),V(n#XCn#0UMMY(n 

DIMENSION NA Mi ,NB(2) , NH(2) , NG(2) #NF(2) ,NV (2) »NX (?) # T(2) , I0P(tt) 
DIMENSION N0UM1(2),N0UM2(?) 

LOGICAL DISC, STABLE . . 

N * N A ( 1 ) *N A ( 2 ) 



i00. 


TRN00< 
TPNOOI 
TRNOO* 
TPN00( 
TRN00< 
TRN00( 
TRNOO* 
TRN00( 
TRNOO* 
TRNOOl 

- TRN001 

TPNOOI 
TRNOOl 
TRNOOl 
TRNOOl 
TRNOOl 

TRNOOl 

TRNOOl 

TRANSIENT RESPONSE FOR THE DIGITAL SYSTTRNOO ) 

trnoo; 

COMPUTATION OF TRANSIENT RESPONSE FOR THE CONTINUOUS TRNOOe 

TRNOOe 
TRNOOe 


120 

COMPUTATION OF 


#n 

#n 


uo 
160 

Tbo 

zoo 


220 

.240. 

260 

260 


PRINT 140 

PRINT 160 _ 

NULL MATRIX •) 

AN IOENTITY MATRIX 


1) 


X ALL LNCNTC4) 

IF (DISC ) PRINT 100 
IF( .NOT, DISC ) PRINT 
FORMAT 
1EM ',/) 

120 FORMAT(//, • 

1_SVSTEM 

CALL PRNT(A,NA,4H A 
CALL PRNT (B# NB# 4H B 

_ I F ( (IOP(l) ,NE, 1) .AND. _(IBPU)_JVE._0) 5 60 T 9 _ 180 

CALL LNCNT (3) 

IF( IOP(l) .EQ. 0 ) 

IF(_IOP(U ,EQ. 1_) 

FORMAT!//#' h is a 

FORMAT!//,' H is an IOENTITY MATRIX ') 

GO JO 200 
CONTINUE 

CALL PRNT(H,NH,4H H 
CONTINUE _ 

IF ( (IOPC?) .NE. 1) 

CALL LNCNT (3) 

I F ( IOP (2 ) .EG. 0 ) 

I F ( I0P(2) .EG. 1 ) 

FORMAT!//,' G IS A 
FORMAT ( // » # G IS 
GO TO 280 
CONTINUE 

CALL PRNTCG,NG#4H G_ ,1) ... 

CONTINUE 

CALL PRNT(F#NF,4H F , 1 ) 

IF( CI0PC3) .NE. 0) AND, _(I0P(_3.)_*NE, 1 ) )_ GO TO 295 _ 

CALL LNCNT (3) 

IF(IOP(3).EQ.O) PRINT 285 

IF(I0P(3).E0.1) PRINT 290 _ . _ ... 

285 FO»MAT(//, # V IS A NULL MATRIX') 

290 FORMAT (//# ' V IS AN IDENTITY MATRIX') 

GO .TO 300 .„ ... 

295 CONTINUE 

CALL PRNT(V,NV,4H V #1) 


.AND. (I0P(2) .NEV 0) ) GO TO 260 

PRINT 220 
PRIWT 240 
NULL MATRIX') 

AN IDENTITY MATRIX') _ _ 


.C 

300 


CONTINUE 

CALL EQUATE ( A , NA » DUMMY (N6) #NA) 
CALL MULT(B#NB#F.NF f OUMMY.NA) 
CALL $UBT(A,NA,OUMMY f NA, A,NA) 


IF (DISC) GO TO 350 
NMAX s T ( 1 )/T (2) 
IOPT a 1 


A-54 


TRNOOe 

TRNOOe 

TRNOOe 

TRN002 

TRN002 

TRN002 

TRN003 

TRN003 

TRN003 

TRN003 

TRNOO 3 

TRN003 

TRN003 

TRN003 

TRN003 

TRN003 

TRN004 

TRN004 

TRN004 

TRN004 

TRN004 

TRN004 

TRN004 

TRN004 

TRN004 

TRN004 

TRN005 

TRN005 

TRN005 

TRN005 

TRN005 

TRN005 

TRN005 

TRN005 

TRN005 

TRN005' 

TRN006 

TRN006 

TRN006. 

TRN006 


63 

6a 

65 

66___ 

67 

66 

69 _ _ 

70 

71 

.72 

73 

7a 

75 

76 

77 

_JL9 


315 


325 

350 


79 

eo 

82 

63 

_8.a 

85 

86 

_87 

88 

89 

_9Q... . 

91 C 

92 
_93 

9a 

95 C 

96 

97 
96 
99 

100 

01 

02 

103 
1 oa 
05 

i 06 

107 

08 

09 

110 

* 1 1 

12 

113 

1 14 

15 

.16 

l* 7 _ 
18 
19 
120 
’21 
22 
l 23 
12 a C 
25 


T.T ■ T(2) 

IF C ' I0P(3) .NE. 0 ) GO TO 315 

CALL EXPSE«(A,NA,OUMm Y# NA,TT, I0HT,0UMMY(N1 ) ) 

GQ TO ttOQ _ 

CONTINUE 

CALL EXPINT( A,NA,DUMMV,NA, DUMMY (Nl ) ,NA, TT, IOPT, DUMMY (N2) ) 

CALL MULT(0UMMY(N1 ),NA,B»N8,0UMMy(N2) ,NBJ 

I F ( I0P<3) .NE. 1 ) GO TO 325 

CALL EQUATE (DUMMY (N2) ,NB, DUMMY (Nl ), NX) 

GQ TO 400 __ _ 

CONTINUE 

CALL MULT (DUMMY (N2) ,NB,V,NV, DUMMY (Nl) , NX) 

GO TO 400 

CONTINUE 
NMAX s IOP (4 ) 

CALL EQUATE! A ,NA, DU MMY t NA) 

I F ( IOP (3) .EQ. 0 ) GO TO 400 
CALL MULT(8,NB,V,NV,0UMMY (Nl) ,NX) 


400 CONTINUE 

CALL LNCNTC4) 

PRINT 420 , 

420 FORMAT ( //, • STRUCTURE OF PRINTING TO FOLLOW',/) 
CALL LNCNT(6) _ 

PRINT 440 _ __ 

440 FORMAT (' TIME OR STAGE 
1 ♦ BU',/,' OUTPUT - Y 
_2_fROM 




STATE - X 
TRANSPOSE • FROM Y 
X',/,' CONTROL_-JJ TRANSPOS E - FROM 


TRANSPOSE - 


t HX 
U = 


♦ GU 
-FX ♦ 


TRNOO 
TRNOO 
TRNOO 
TRNOO 
"TRNOO 
TRNOO 
TRNOO 
TRNOO 
TRNOO 

_ TRNOO 

TRNOO 

TRNOO 

TRNOO 

TRNOO 

TRNOO 

TRNOO 

TRNOO. 

TRNOO 

TRNOO- 

TRNOO' 

TRNOO' 

TRNOO' 

TRNOO' 

TRNOO' 

TRNOO' 

FROM DX "s' AXTRNOO' 
IF DIFFEPENTTRNOO* 


//) 


K s 0 
„ L * 0 

CALL SCALE(F,NF,F,NF,-i,0) 

450 CONTINUE _ _ _ 

IF ( K ;GT. NMAX ) GO TO" 800 ' 

CALL MULT(F,NF,X,NX,0UMMY(N2) ,NV) 

IF ( I0P(3) ,NE, 0 ) CALL ADO (DUMMY (N2 ) ,NV,V,NV, DUMMY (N2),NV) 

CALL MULT (DUMMY , NA , X , NX , DUMMY (N3) , NX ) 

I F ( I0P(3) .EQ. 0 ) GO TO 475 

___ C ALL ADD (DUMM YJNJJ , N*»JHJMM YJ N3J , NX, DUMMY ( N3 ) , NX ) 

47S CONTINUE 

IF ( I0P(2) .EQ. 0 ) GO TO 525 
I F ( IOP ( 2 ) .EQ. 1 ) GO TO 500 

CALL MULT(G,NG,DUMMY(N2),NV,0UMMY(N4) ,NDUM1) 

GO TO 525 

Jj 0 0 CONTINUE _ 

CALL EQUATE! DUMMY (N2) ,NV, DUMMY (N4) ,NDUM1 ) 

525 CONTINUE 

IF ( IOP(l) .EQ. 0 ) GO TO 575 _ 

IF( I0P(1) .EQ. 1 ) GO" TO 550 

CALL MULT(H,NH,X,NX,DUMMY(N5) ,NDUM1 ) 

GO TO 575 _ 

550 CONTINUE " 

CALL EQUATE ( X, NX, DUMM Y(N5) ,N0UM1 ) 

575 CONTINUE 

I F ( I0P(2) .EQ. 0 ) GO TO 600 

I F ( IOP(l) .EQ. 0 ) GO TO 700 

CALL ADD (DUMMY (N4) ,NDUM1 , DUMMY (N5) ,NDUM1 , DUMMY (N4) ,NDUM1 ) 

GO TO 700 
600 CONTINUE 

TF( IOR(l) .NE . 0 ) CALL EQUATE(DUMMY(N5),NDUM1,DUMMY(N4),NDUM1) 


700 CONTINUE 


a-55 


TRNOO* 

"TRNOO* 

TRNOO* 

TRNOO* 

TRNOO* 

TRNOO*! 

trnoo*; 

' TRN009 
TRN009 
TRN010 
TRN01C 
TRN010 
TRN010 
"TRN010 
TRN010 
TRN010 
TRN010 
TRN010 
TRN010 
""TRNO’l 1 
TRN01 1 
TRN01 1 
' TRN01 1 
TRN01 1 
TRN01 1 
TRN01 1 
TPN01 1 
TRN01 ! 
TRN01 ! 1 
TRNO 1 2 ' 
TRN012 
"TRN012, 
TRN012: 
TRN01 2' 
TRN01 2*. 
TRN012' 


126 


CALL LNCNT (5 ) 

127 


I F ( .NOT, DISC 

1 128 


PRINT 710,* 

_129 _ 

710 

FORMAT ( ✓///, 15 

, 130 


GO TO 740 

131 

720 

CONTINUE 

' 132... 


TIME«k*T(?) . 

133 


PRINT 730, TIME 

134 

730 

FORMAT ( ////# Dll 

135 _ 

740 

CONTINUE . ._ 


) GO TO 720 


136 

137 
136_ 
1 3^ 
140 

_14 

142 

143 
_1_44. 

145 

146 


750 


CALL TRANP(X,NX,DUMMY(N5)#N0UM2) 

CALL PRNT(DUMMY(N5),NDUM2,Lf 3) 

IF ( ( IOP (2) ,EQ, 0) .AND. ( C. I OP Cl) .EQ, 0) ,0P. (IOP(l) .EQ, 

V) GO TO 750 

CALL TPANP(DU MM Y (N4) r NDUM1 , DUMM Y ( N5 ) , NDUM2) 

_C ALL PRN T ( DUMMYJ NS ) ,_NOU^2_f L f 3J 

CONTINUE 

CALL TR ANP (DUMMY (N2) ,NV, DUMMY (N5) »N0UM2) 

CALL PRNT(DUMMY(N5),NDUM2,L#3). _ 


CALL EQUATECDUMMY(N3)»NX,X,NX) 
K a^K ♦_ 


146 
149 C 


GO TO 450 

.150 _C 


. 

151 

800 

CONTINUE 

152 


CALL SCALE(F,NF,I 

-153. _ 


IF ( .NOT. STABLE 

154 


I F ( I0P(3) .EQ. 

155 


CALL MUL T ( Bf NB f V 

.156 .... 


GO TO 640 

157 

*620 

CONTINUE 

156 


CALL EQUATE (Bf NB 

159_ 

.840 

CONTINUE. 

160 


I F ( .NOT, DISC ) 

161 


CALL UNITY (DUMMY 

162 


CALL SUBT(DUMMY( 

163 

860 

CONTINUE 

164 


I F AC = 0 

165 


. CALL GELIM(NA(1) 

166 


1 ) 

167 


I F ( IERR .EQ. 0 




.OR. IOPC3) 
l ) GO TO 820 
,NV, DUMMY, NX) 


, E Oj 0 ) GO TO 900 


GO 


MV, NX) 

TO 860 

,NA) 


168_ 

169 

170 
L7_l. 

172 

173 
*J 4 

75 
1 76 
1.77 

76 
.79 
160 

81 
62 
183 
i 84 
85 

i 86 

187 

88 


865 

THE MATRIX A-BF SUBMITTED TO GELIM IS 


) GO TO 680 

CALL LNCNTC3) _ 

I F ( .NOT. DISC ) PRINT 
I F ( DISC ) PRINT 870 
865 FORMAT (//, * IN_T.RNSI.Tf. 

1LAR* ) 

870 FORMAT ( // , * IN TRNSI T , THE MATRIX I - (A-BF) SUBMITTED TO GELIM 

__JS SINGULAR*) ... 

GO TO 900 
CONTINUE 

JF( .NOT. DISC ) CALL SC ALE (DUMMY , NX , DUMMY , NX , -1 . 0) _ 

CALL LNCNT (5) 

PRINT 890 

FOPMAT(////, * STEADY-STATE VALUE OF 
CALL TR ANP ( DUMMY# NX, DUMMY (N5) ,NOUM2) 

CALL PRNT (DUMMY ( N5 ) , NDUM2,L # 3 ) 


880 


_ 890 


X TRANSPOSE*) 


900 CONTINUE 

CALL EQU ATE ( DUMMY ( N6 ) » N A , A , NA ) 


return 

END 


A-56 


TRNO 
TRNO 
TRNO' 
TRNO' 
“TRNO! 
TRNO) 
TRNO) 
TRNO) 
TRNO) 
TRNO) 
TRN01 
TRNO 1 
) TRNO 1 
TRN01 
TRNO 1 
TRNO) 

‘ TRNO l 
TRN01 
TRNO 1 
' TRNO 1 
TRNO 1 

TRNO 1 

TRNO 1 
TRNO 1 
TRNO 1 
TRN01 
TRN01 
TRNO 1 
TRNO 1 
TRNO 1 
TRNO 1 ' 
TRN01' 
TRNO 1 1 
TRNO 1 < 
TRNO 1 ( 
TRNO 1 • 
TRNO 1 ( 
TRNO 1 ( 
TRNO 1 ( 


TRNO 1 ( 
TRNO 1 t 
TRNO 1 t 
TRNO 1 7 
TRNO 1 7 
SINGUTRN017 

TRNO ) 7 

ITRN017 
TRNO 1 7 
TRNO 1 7 
TRNO 1 7 
TRNO 1 7 
TRNO 17 
TRNO 1 8 
TRNO 1 8 
TRNO 1 8 
TRNO 1 8 
TRNO 1 8 
TRNO 1 8 
TRNO 1 8 
TRNO 1 8 
TRNO 1 8' 
T R N 0 1 8 ' 


1 


0 _ 

1 

2 

. \ . . 

a 

5 

t C. 

7 

8 C 

. 9 

1 0 
11 

12 . _ 


SUBROUTINE SAMRl! A,NA, 8,N0,Q,NQ,R,NR,W,NW,T, IOP, DUMMY) 
IMPLICIT REAl*» (A-H # 0-Z) 

dimension A(i) r R(n # o(n»R(i)fM(n«ouMMv(n 

DIMENSION NA(2) ,NB(2) ,NQ(2) ,NB(2) ,Nrt(?) , I0P(2) ,N0 U m (2) 

COMMON/CONV/SUMCV,RICTCV,SERCV#MAXSUM 

I F ( IOP(l) ,EO, 0 ) GO TO 100 


I F ( I0P(2) . EO, 0 ) GO TO 50 


_ .CALL LNCNT.(5) 

PRINT 25 

PPRMAT(//,* COMPUTATION OF WEIGHTING 
1LED-DATA REGULATOR PROBLEM*,//) _ 


25 


MATRICES for the OPTIMAL 


13 

19 

15_ 

CALL PRNT ! A , N A , 9H 
CALL PRNT !B#NB#9H 
CALL LNCNT (3) 

A 

B 

#1) 

#1) 

16 

PRINT 35 



17 

35 FORMAT'/,' CONTINUOUS PERFORMANCE 

.. 18 

CALL PRNT!0#Nn#9H 

0 

,1) _ 

1 9 

CALL PPNT !R# NR , 9H 

R 

#1) 

20 

CALL LNCNT !3) 



_2l 

PRINT. 95jT_ . 



22 

95 FORMAT!/,* Sample 

TIME a *#D16.8, 

23 C 




.29 „. 

GO. TO 100 . 




25 C 




26 

50 CONTINUE 



...2.7 — 

CALL .LNCNT ! 8). .... 





INDEX WEIGHTING MATRICES*#/) 


28 

29 

30 — 

31 

32 

33_._ 

39 

35 

Jib ... 

37 C 
30 

_39_ C. 
AO 
A 1 


75 


85 


PRINT 75 

FORMAT!//,* COMPUTATION OF 

1 THE ! A , H ) SYSTEM OVER THE 

2 H TRANSPOSE ) X H*,//) 
CALL PRNT ! A , N A , AH A ,1) 
CALL PRNT !Q,NQ, AH Q .,1). 
CALL LNCNT ! 3 ) 

PRINT 85, T 

FORMAT!/, » T s *,016.6#/) 


SAMQOi 
SAMOO' 
SAMOO' 
SAMOO' 
~ SAMOO* 
SAMOO* 
SAmoo* 
SAMOO* 
SAMOO* 
SAMOO! 
SAMOO 1 
SAMPS AMOO 1 
SAMOO 1 
SAM001 
SAM001 
SAM001 
SAMOO 1 
SAMOO 1 
SAM001 
SAM002 
S AMO 0 2 
SAM002 
SAMOO 2 
SAM002 
SAM002 
SAMQ02 
SAM002 
SAM002 
SAM002 


THE RECONSTRUCTIBILITY GRAMJAN*,/,* FORSAM003 

THE MATRIX 0 IS !SAM003 


INTERVAL ! 0, T) 




100 CONTINUE 


93 

99 

95. 

96 

97 
98. 
99 

50 

51 

52 

53 
59 

55 

56 
57. 

58 

59 

60 
61 
62 


N s N A ! 1 ) 

L = ( N**2) 
N 1 .= . L 1 .. 
N2 s N1 ♦ L 
TT » T 


IOPT a 1 

CALL NORMS!N,N,N,A,IOPT,ANORM) 

I OPT.. 3 3 . . _ _ 

CALL NORMS!N,N,N, A, IOPT#ROWA) 

IF! ANORM ,GT. ROWA ) ANORM s ROwA 


IF! ANOPM .LE. l.E-15 ) GO TO 900 


TMAX = l.O/ANORM 
K s 0 


... .125 


150 


CONTINUE .... 

IF! T M AX - TT ) 150,150,200 
CONTINUE 
K = K ♦ 1 
TT a T / ! 2**K) 

IF! K - 1000 ) 125#800#800 
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SAM003 
SAM003 
SAM003 
SAM003 
SAM003 
SAM003 
SAM003 
SAM003 
SAM009 
SAM009 
SAM009 
SAM009 
SAMOO 9' 

S AMO 09' 
SAM009< 
‘SAMOO 9" 
SAM009I 
SAM009 1 
~S A M 0 0 5 ' 
SAM005 
SAM005J 
SAM005: 
S AMO 05* 
SAM005' 
SAM005* 
S A M o 0 5 "i 
SAMQ05J 
S A M o 0 5 1 
SAM006* 
SAMQ061 
S AMO 06i 
SAM0063 


200 CONTINUE 


X_« 0 

SC « TT 

CALL SCALE(A,NA,A,NA,TT) 

_X ALL SCALE(OrNO,0,NQ,TT) 

CALL EOUATE(Q,NQ, DUMMY, NQ) 

1E.I. X0PC2) .NE..0 )..GQ..JO_500_. ... 

225 CONTINUE 

II 2L . 

I ■ I ♦ 1 
F ■ 1,0/11 

CALL_5CALLCA,NA,DUMMY_(Nn,NA,F.) 

CALL MULT (DUMMY, N A, DUMMY (NI ), NA , DUMMY (N?) , NA ) 
CALL TRANP (DUMMY (N2),NA,0UMMY{N1),NA) 

CALL^DD.(DUMMY.C.Nl ).,14A^UMMYJJ12) ,NA x P.UMMY r NA) _ 

CALL MAYEL(0,NO,TOT) 

CALL MAX.ELCDUMMY,NA,DELT> 

I F ( TOT ,GT, 1,0 ) GO TO 250 

IF ( DELT/TOT ,LT, SERCV ) GO TO 300 

X.O.TO 275 

250 CONTINUE 

IF ( DELT ,LT, SERCV ) GO TO 300 

225 -CONTINUE 

CALL ADD(Q, NO, dummy, NA,Q,NQ) 

GO TO 225 


300 CONTINUE 

XF( K ,EO. 0 ). GO T0j400 

N3 * N? ♦ L 
G s 1,0 

IOPT b 0 . 

CALL EXPSER( A, NA, DUMMY, NA,G, IOPT, DUMMY (Nl) ) 

350 CONTINUE 

IF ( K ,EQ. 0 j GO TO aoo 
K b K-l 

CALL TRANP (DUMMY ,NA, DUMMY (Nf)~,NA) 

CALL M|JLT(Q,NQ, DUMMY, NA,DUMMY(N2) * NA) 

CALL MULT(DUMMY(N1),NA,0U MMY (N?), NA,D UMM Y(N3) ,NA) 

CALL ADD(0,NQ, dummy (N3) ,na,q,no j 

CALL MULT (DUMMY, N A, DUMMY, NA, DUMMY (Nl) ,NA) 

CALL EQUATE (DUMMY (Nl ) ,NA, OUMMY , NA ) 


GO TO 350 

Too ‘continue 

S B 1,0/SC 

CALL SCALE(A,NA,A,NA,S) 

I F ( IOP(l) , EO , 0 ) RETURN 
CALL PRNT(O,N0,AHGRAM, 1) 
RETURN 


1ST ' ' 

*{a V 

V * 

•• 


500 CONTINUE 

CALL SCALE(6,N8,B,N8,TT) 
N3 s N2 ♦ L 


I 12b MO *. MS ♦ L 

1127 MS * Mil ♦ L 

12* Mb s NS ♦ l 

1 29_C 

! 130 525 CONTINUE 

131 II * I ♦ 2 

132 1_« I ♦ 1 

133 F « l.O/II 

1 30 CALL SCALE(A,NA,0UMMY(N1 ),NA,F) 

- J 35 .CALL TRANP(0ummy(n1),na,0Ummy(N2),NA) __ 

136 CALL MULT(DUMMf ,NA,DU"MY(Nl),NA,DUMMY(N3j,NA) 

137 CALL TRANP(0UMMY(N3) ,NA,DUMMY(N1 ) ,NA) 

-136 CALL. M ULT (DUMMY,NA,B,N8,0UMMy (N5) ,NW) 

139 CALL A00(0UMMV(M1 ) , N A, DUMMY (N3 ) ,NA, DUMMY, NA) 

190 CALL SCALE(DUMMY(N5),N*,0UMMY(N1),NW,F) 

-191 I F.(_I ,NE.„l J_..GO T0_35Q 

192 CALL EQUATE(DUMMY(N1 ) ,NW,W,NW) 

193 CALL EQUATE(0UMMY(N1),NW,DUMMY(N6),NW) 

J.99 CALL. AOD(Q,NQ, DUMMY, NQ,Q,NQ) 

195 GO TO 525 

196 C 

1MJ 550_JC0NT1NUE 

196 CALL MULT(DUWMY(N2),NA,0UMMYCM6)»NW,0UMMY(N5)#NW) 

199 CALL A00(0UMMY(N5),NW,DUMMY(AU),Nw,0UMMY(N1 J,NW) 

150 CALL _TRANP(B,NB,DUMMy(N 2) ,NDlJM) _ 

151 CALL SCALE(DUMMY(N2) ,NDUM,DUMMY(N2),ND’um,F) 

152 CALL MULT(DUMMY(N2),NDUM,DUMMY<N6),NW,DUMMY(N3),NR) 

153 CALL. TPAMp(0UWMY(N3),NR,0UMMY(N5),NR) 

159 CALL ADD(DUMMy (N3) , NR, DUMMY (N5) »NR, DUMMY (N3) , NR) 

155 CALL E0UATE(0UMMY(N1),NW,DUMMY(N6),NW) 

156 IF ( . I .ME, 2 ) GO TO 575 

157 CALL ADD(Q,NQ, DUMMY, NQ,Q, NO) 

156 CALL ADD(W,Nw, DUMMY (N1 ) ,NW,W,NW) 

1.59 CALL F.0UATE(DUMMYCN3),NR,DUMMY(N0),NR) 

160 GO TO 525 "" " ~ 

161 C 

162 575 CONTINUE _ 

163 CALL ma*EL(Q,NQ,TOT) 

169 CALL MAXELCDUMMY,NQ,DELT) 

J.65 IFjL.TOT ,GT, 1,0 ) GO_TO 580 

166 I F ( DELT /TOT ,LT. SEPCV ) GO TO 585 

167 GO TO 595 

-1 68_C _ 

169 580 CONTINUE 

170 IF ( OELT ,LT, SERCV ) GO TO 585 

17J G0_.T_0 595 

172 C 

173 565 CONTINUE 

179 CALL MAXEL(DUMMYCNO) , NR, TOT) __ 

175 CALL max£L(0UMMY(N3) , NR, DELT) 

176 IF( TOT .GT, 1,0 ) GO TO 590 

177 IF( DELT/TOT ,LT, SERCV ) GO TO 600 

178 GO TO 595 

179 C 

160. 590 CONTINUE 

: 1 6 1 IF( DELT ,LT. SERCV ) GO TO 600 

162 C 

163 595.. CONTINUE . . 

169 CALL ADD (0,NQ, DUMMY, NO, Q,NQ) 

'165 CALL ADD(W, NW, DUMMY (Nt ) ,NW,W,NN) 

ie6 CALL ADD(QUMMY(NU),NR,DUMMY(N3) ,NR,OUMvy(NA),NR) 

; 167 GO TO 525 A-59 

186 C 


SAMOl? jj 
SAM012 

SAMOj g ;i'1 

SAMOl 3 
' S AMO 1 3 M 
SAMOl 3 ij 
SAMOl 3 
SAM013 I 
SAMOl 3 1 

SAMOl 3 1 

‘ SJM013 1 
SJM013 1 
SAMOl 3 j 
S AMO 1 9 i 
S AMO 1 A j 
SAMOl A \ 
SlWli j 
SAMOl A 

S AMO 1 A j 

SAMOl A < 
SAMOl A | 

S AMO 1 A j 

S A M 0 1A j 
SAMOl 5 
S AMO 1 5 
SAMOl 5 
SAMOl 5 
SAM015 
"SAMOl 5 | 

SAMOl 5 3 

SAM015 ] 
SAMOl 5 ! 

SAM015 j 
SAMOl 6 
SJM016 
SAMOl 6 
S AMO 1 6 3 

SAMOl 6 j 
S AMO 1 6 
SAMOlt j 
S A M 0 1 6 
SAMOl 6 
SAMOl 6 
SAMOl 7 
SAM017 
samoi, 7 
SAMOl 7 
SAMOl 7 ; 

S AMO 1 7 \\ 
~ S AMO 17 if 
SAM017 3 
_ S AMO 1 7 n 
~S AMO 1 7 If 
S AMO 1 6 || 
SAMQlfi j| 

SAMoie |J 
S AMO 1 8 || 
SAMOl 8 1 

SAMOl e 1 
S AMO l 8 i 
SAMOl 8 9 
SAMOl? 1 
SAMOl? 9 


1B9 

600 

CONTINUE 

S amo 1 

190 


IFC B .EG. 0 ) CO TO 700 

5 AMO 1 

191 


G • 1,0 

SAMOl 

192 



.IQPT « 0 

SA401 

1 9 J 


CALL EXPINT(A,NA,DUMMY,NA,DUMmy C N t ) * N A*, G , 1 OPT , DUMMY ( N? ) ) 

SAMOl 

19a 


CALL ^UL'* ( DUMMY (N1 ) ,NA,B,NB, Dummy (N2) ,NB) 

SAMOl 

195.. 


CALL. EOUATE(OUMMY(N2) DUMMY (N1 ) ,NB) 

SAMOl 

196 C 



SAMOl 

197 

650 

CONTINUE 

SAMOl 

1 ? 6 __ 


_ IP( K ,EO, 0 ) GO TO 700 

SAMOl 

199 


K • K - 1 " “ " 

SAM02 

200 


CALL MULT (0, NO, DUMMY, NA, DUMMY (N2 ) ,NA) 

SAM02 

_201 __ 


CALL TRANP (DUMMY, NA, OUMMY (N3) ,NA) 

SAM02 

202 


CALL MULT(DUMmy(N3),NA,0UMMY(N2),NA,DUMMY(N5),NA) 

SAM02 

203 


CALL MULT (Q,NQ,DUMMY(m j ,NB, DUMMv (N2) ,NB) 

SAM02 

2fla 


_C.ALL ADD (0, NO, DUMMY (N5 ) ,NA,0,MQ) 

5AM02- 

205 


CALL MULT(DUMMY(N3),NA,DUMMY(N'2),NB.DUMMy(N5),N8) 

S A'm o 2 ' 

206 


CALL MULT (DUMMY (Nl) ,NA,W,NW,OUMMY (N6) ,NW) 

S AMQ2 

201 


CALL ADD ( DUMMY (N5 ) ,NW, DUMMY (N6) ,NW,0UMMY(N5) ,NW) 

SAM02I 

206 


CALL TPANP(DIMMY(N1),NB,DUMMY(N6),NDUM) 

SAM02I 

209 


CALL MULT(0UMMY(N6) ,NDUM,W,NW, dummy (N3) , NR) 

SAM02 

2LQ 



.CALL ADD (W, NW, DUMMY (N5)_/Nt*,W,NW) 

SAM02 

211 


CALL MuLT(DUMMY(N6),N0UM,DUMMY(N2) ,NB",'DUMMY('n5T,NR) ' 

SAMQ2 

212 


CALL ADD (DUMMY (N5) , NR, DUMMY (N3)«NR, DUMMY (N5) #NR) 

SAM02 

2.U 


. CALL TRANP(0UMMY(N3),NR,0UMM?(N6),NR) 

SAM02 

219 


CALL A OD (DUMMY (N5) ,NR,DU MM Y (N6),NR,DUMMY(N6),NR) 

“SAM02: 

215 


CALL 3C ALE (DUMMY (N4 ), NR, DUMMY (N4) , NR, 2,0) 

SAM02: 

2.1 


CALL ADD (DUMMY (N6) ,NR,OU*MY (N4 ) , NR , DUMMY (N4) , NR ) 

SAMO?' 

217 


CALL MULT (DUMMY, NA,OUMMY (N1 ) ,NB, DUMMY (N3) ,NB) 

BAM02' 

218 


CALL ADD (DUMMY (N3) #NB, DUMMY (N1 ) ,NB, Dummy (N l ) ,nbj 

SAM02: 

-219 _ 


CALL MULT(DUMMY, NA, DUMMY, NA, DUMMY(N3) ,NA) 

SAM02J 

220 


CALL EOUATE(DUMMY(N3) ,NA, DUMMY, NA) ‘ 

' S AM02< 

221 


GO TO 650 

SAM02; 

222 C 



SAM021 

22 3~ 

'700‘ 

CONTINUE ’ -• 

8AM02J 

229 


CALL SCALE(R,NR,R,NR,T) 

SAM02,- 

22 5 


CALL ADD (R , NR , DUMMY (N4) ,NR,R,NR) 

S AM02< 

22 6 


CALL SCALE(W,NW,w,NW,2.0) 

SAM02J 

227 


S a 1,0/SC 

SAM02, 

228 


CALL SCALE(A,NA,A,NA,S) 

SAMQ2i 

229 


CALL SCALE(8#NB,B,NB,S) 

SAM02] 

230 


IF< I0P(1) , EQ, 0 ) RETURN 

SAM022 

231 C 



SAM02) 

232 


CALL LNCNTC3) ~ '**" * ' 

SAM022 

233 


PRINT 750 

SAM02) 

239 

_750 

FORMAT ( / , * DISCRETE PERFORMANCE INDEX WEIGHTING MATRICES*,/) 

SAM022 

235 


CALL PRNT(6,N0,4H 0 ,1) " 

"SAM023 

236 


CALL PRNT (W,NW,4H W ,1) 

SAM023 

237 


CALL PPNT (R , NR , 4H R ,1) 

SAM02) 

>38 


return " • — 

" “ SAM02] 

239 C 


« 

SAM02& 

?40 

.800 

CONTINUE 

SAmo 2t 

? 9 1 


CALL LNCNT ( l ) ' 

SAM024 

29? 


PRINT 850 

UAM024I 

293 

850 

FORMAT(* ERROR IN S A m PL , K r 1000*) 

SAMQ24 

>49 


RETURN “■ 

SAM024 

95 C 



SAMQ24 

296 

900 

continue 

SAMQ24 

-'97 


CALL SCALE (0, NO, Q,NQ,T) 

SAM024 

■98 


IF ( IOP ( 2) ,NE, 0 ) GO TO 925 

SAM024 

249 


I F ( IOP (1) , NE, 0 ) CALL PRNT CQ,NQ, 4HGRAM, t ) 

SAMQ25 

250 


return a _ 60 

SAM025 

51 C 



SAMQ25 


1 


I 252 025 CONTINUE _ SAM9? 

. 25 5 CALL MULT CCJ,NQ,9,NB,W,NW) " ' SAMftj 

25« CALL SCALE(*,N*,w,N*,T> samq? 

255 CALL T«ANP(B,n«, DUMm*, NDUM) _ 3AM02 

i 256 CALL M ULT(DUMMY,NDUM,iN,Nrt,DUM~MY(NV),NP) SAM02 

257 TT * T/3. 9 JMO? 

- 256 _ . . CALL SCALECDUmmy (Nt) ,nr,dummy,NR,TT_) 8AM02 

259 CALL SCALE(R,NR,p,nm,T) - SAM02 

260 CALL ADDfR,NR,OUMMy,MP,R,Nf' ) SAM02 

— 261 JECIOP(l) ,E0. .0 } RETURN S AM02 

262 CALL LNCNT (3) ' ' ' 9"AM02 

265 PRINT 750 8AM02 

269 ...CALL PRNT(Q,NQ,UM 0 1 j __ _ SAMQ? 

265 CALL PRNT ( w , Nw , ttH w ,1) ” ' ~S"AM02 

266 CALL PRNTCR,NR,9H R ,1) S AM02 

-267 REIUPN. 9AM02 

266 C * 9 AM62< 

269 END S AMO? 



0 

1 

2 

. 3 

9 

5 

6 

7 

8 
9 

io 

l i 
. 12 
13 
19 
— 15l 
lb 
17 
_LB. 


SUBROUTINE PBEFRt A,N/..B,NB,Q,NQ,*,N*.,P,NR,F , NF , I OP , DUMMy ) 

IMPLICIT REALM <A-H,0«Z) 

DIMENSION A(l),8(l),«(l),w(l),»(l),F(l ), DUMMY (1 ) 

DIMENSION NA (2),NB(2’/ ,N0(2) ,NW<2) ,NP(2) ,NF (2‘ , IOP(3) 

I F ( IOP(l) .EQ. 0 ) 50 TO 100 


CALL LNCNT(S) 

. PRINT 25 

?5 FORMAT(//, # PROCK'.m 
1S-PROPUCT TERM »,/, 

.. I F ( IOP ( 3) .CO, 0 '• 

CALL PRNT ( A , N A , <*H A 
CALL PRMT(B,NB,UM 8 

50 CONTINUE 

CALL PRNT(Q,NQ,<1H 0 
CALL PRNT ( * , NW , AM M 
CALL PRNT (R . NR » <1H R 


Tn COMPUTE PREFILTEP CAIN 
IN QUADRATIC PERFORMANCE 
CO TO 50 _ 

# 1 ) 

# 1 ) 

#1) 

# 1 ) 




F TO ELEMINATE 
INDEX *,/) 


100 


19 

20 
-2.L 


CONTINUE 

.CALL. TRANP(W,NW,F,NF) 

CALL SCALE(F,NF,F,NF,0.5) 
CALL EOUATE(R#NR, DUMMY, NR) 
_10PT*0 ._ 


22 
23 

—29 . 

25 

26 
27_.. 

28 
29 
. 30_ 

31 

32 

33 

39 

35 

36 

37 

38 
~ 39 _ 

90 
9! 

.92. 

93 

<19 
.95 

96 

97 

98 _ 
<19 
50 

.51— 

52 

53 C 

59 

55 

J 56 

57. 

58 


IFACaO 

Nl«NR(l)**2M 

M ■ NR(1 ) _ __ 

CALL SYMPDS (M,M, DUMMY, NF( 2), F,IOPT, IF AC, DETERM, ISCALE# DUMMY (N1 

1 RR ) 

IF ( I ERR .EO. 0 ) CO T0._200 ... 

CALL LNCNT<9) 

PRINT 150 

150 FORMATC//,' IN PREFIL, THE MATRIX R IS NOT SYMMETRIC POSITIVE 
1NITE',/) 

RETURN 


• PRE0< 
P*E0< 
PRE0< 
PR£0< 
PRE0( 
PR£0( 
PREOC 
CR0SPRE0< 
PREOC 
PR£0( 
PREOC 


PREOC 

PREOC 

PREOC 

PREOC 

"PRE"00 

PREOO 

PREOO 

PREOO 

PREOO 

PREOO 

PREOO 


200 CONTINUE 

I F C IOP (2) ,EO. 0 ) GO TO 300 
CALL MULT(w,N*,F,NF, DUMMY, NQ) 

CALL SC ALE (DUMMY, NO, DUMMY, NO, 0,5) 
CALL SUBT(0,N0,DUMMY,N0,Q,N0) 

"3*00 "conTinue ~ 

IF( IOP (3) .EQ. 0 ) CO TO 900 

CALL MULT ( B, NB,F,NF, DUMMY., .N A) 

CALL SUBT(A,NA,DUMMY,NA,A,NA) 


_900„ CONTINUE 

IF C IOP(l) ,EO. 0 
CALL PRNT(F,NF,9H 

IFC IOP ( 2) ,EQ, 0 

CALL LNCNTC3) 

PRINT <150 

950 FORMAT(/, * MATRIX 


) RETURN 
F ,1) 

) GO TO 500 


Q - (W/2)F 


/) 


(.ALL PRNT (Q,NQ,9HNEi*Q» 1 ) 
500 CONTINUE 

I F ( I0P(3) .EO. 0 ) RETURN 
CALL PRNT(A,NA,<IMNEWA, 1 ) 

.RETURN . 

END 


PREOO 
), IEPRE00 
PREOO 
PREOO 
*“” PREOO 
PREOO 
OEFIPREOC 
PREOO 
PREOO 
PREOO 

" " ' preoc: 

F teoo: 

PREOO- 
" "PREOO: 
PREOO. 
PREOOi 
PREOO< 
PREOO* 
PREOO< 
PREOO* 
PREOO a 
PREOO« 
PREOO'9 
PRE009 
PRE009 
PRE005 
PRE 005 
PRE005 
PRE005 
PFE005 
PRE005 
"" PRE005 
PRE005 
PRE005 
~ PRE005 


A-62 


_ 0 
r 

2 

3 

it 

5 

6 
7 
6 

_ 9 
10 
n 

— 1 2 

15 
lit 

— 1 5.. 

16 
17 

— 18 

19 

20 
— 2L. 

22 

25 

— 2*t . 

25 

26 
_ 27_ 


SUBROUTINE CSTAB! A,NA,B,NB,F,NF, I0P,SCLE,DUMmy) 
I MfT L IC IT REAL** !A-M,0»Z> 

DIMENSION A(1),B! 1), Ml), dummy <1 ) 

DIMENSION NA(?),N9(2) f MF(2)f I0PC3) »NDUM(?) 
DIMENSION IOPT(?) 

LOGICAL 5VM 

C0mmpn/T0U/EPSAM # ePS9M,IACM__ 

N » N A ( l ) **2 
Nl»N4l 


jruopc?) .eq. o ) go to ioo 

CALL EQUATE! A, NA, DUMMY, NA) 

NgaNWNA(l) _ . _ _ _ _ 

N5*N?4NA(1 ) 

1SV *0 

ILV »0 

CALL EIGEN (NA ( 1 ) , NA (1 ) , P IMMY , dummy (N 1) # DUMMY !N2) , ISVTlLV ,V70UMMy (NC3T00 


C5T0' 

CSTO. 

r st o « 

CST 0< 

CSTOi 

CST0( 

CSTOt 

CSTCC 

C8T0( 

CSTO! 

C5T0( 

CSTOC 

CSTOC 

CSTOC 

CST C 

CSTOC 


1 3 )# IERR) 


C 


M*N A { t ) 

IFdERP ,EO, 0) GO TO 50 

£ALL. LNC.NTC3) 

PRINT 25» IERR 
25 FORMAT!//, * IN CST AB, 


50 


75 


100 

. 20 . 0 . 


26 

29 

30 _C. 

31 

32 

— 33 

39 

35 
.36 

37 

36 

_39_C._ 

itO 

61 

,_62 

63 C 
66 

.65 

66 

67 

.6 6 

69 

50 

31 ... 

52 

53 

56_ . 

55 

56 

57 

56 C 

59 

60 
61 
62 


7HE SUBROUTINE 

1 * , 1 6 , * EIGENVALUE FOR THE ^TRIX A 
IERR«1 

CALL NORMSCM,M,M, A, IERR, BETA) 

.BET A*2,*BETA 

GO TO 200 

continue 


EIGEN FAILED TO DETERMINE 
AFTER 30 ITERATIONS * ) 


BETA e 0,0 
DO 75 I * 1,M 

. J s M . ♦.. I - 1 . . . 

RETA1 s DABS IDUMMY ( J) ) 

IF! BETA 1 ,GT, BETA) BETA 
CONTINUE 

BETA * SCLEMBETA 4- ,001) 
GO TO 200 


c BETAl 


CONTINUE 
BETA s SCLE 
CONTINUE 


CALL 
.CALL 
CALL 
CALL 
.J * 

NAX s 


TRANP!B,NB,DUMMY,NDUM) 

MUL T ( B , NB , DUMMY , NDUM , DUMMY I N 1 ) , N A ) 
SCALE (C- 4M,y(NiV,nV, DUMMY, NA,-' 2.0) 
SCALE! A, NA, DUMMY (Nl) ,NA, *1,0) 

•N A ( J ) . __ 

N A ( 1 ) 


225 


DO 225 1=1, NAX 
J s J+NAX-fl 
K s NUJ-I 

DUMMY(K)=DUmmy!K)-BETA 

continue 

N 2 s N t + N 
SYM s .TRUE, 

_ I OPT ( l ) sO 


,NE, 0 ) GO TO 300 


CSTOO 
CSTOO 
CSTOO 
CSTOO 
CSTOO 
CSTOO 
THECSTOO 
CSTOO 
“ CSTOO 
CSTOO 
CSTOO 
CSTOO 
CSTOO 
CSTOO 
CSTOO 

cstoc: 

cstoo: 

"cstoo: 

CSTOO. 

cstoo: 

* “cstoo: 
cstoo: 

CSTOO! 

CSTOO! 

CSTOOi 

CSTOOi 

CSTOOi 

CST006 

CST006 

C S T 0 0 6 

CST006 

CST 006 

CSTOOi 

CST 005 

CST005 

CST005 

CST005 

CST005 

CST005 

CST005 

CST 005 

CST 005' 

CST006 

CST006 


IF! I DP C 33 

EP SAsEPSAM 

CALL BARSTW ( DUMMY !N1 ) , N A, A , NA , DUMMY , N A , I OPT , SV M , EPS A , EPS A , DUMMY (N?CST006i 
1)) A-63 CST006: 


_63. 

64 

65 

. 66 

67 

66 
.69 

70 

71 

— 7JL 

73 

7a 

_ 75 _ 

76 

77 
7_B_ 


. ..00 TO 350 

300 CONTINUE ' 

IOPTT?) s l 

CALL BILIN (OUMMYfNl ) ,NA, ArNAjDUMMy,^, 10PT, A$CLE,SYM,DUMMY(N2) ) 

CONTINUE " 


350 


CALL 6QUATE(B,N8,DUMMY(N1 ) > NB ) 

10PTU) S3 - 

I AC s I ACM 

.M3 s N2 ♦ N a ( i ) 13 i nt 

CALL SNVDEC(IOPT#NA(l)fNA(l)fNA(l)fNA(i)f DU MM V * N0 ( 2 ) * DUMMY ( N 1 )7iACCST0C 

7 TCCT r\t IUMW / 1 r\i IUUW / All ^ T D A kit/ A n 1 lie T C nn > m a m * » 


CSTOf 

CSTOf 

CSTOf 

CSTOf 

CSTOt 

CST0C 

CSTOf 

CSTOf 

CSTOf 

CSTOf 


79 

80 

JLi_ 


62 
63 
_ 8(L 

65 

66 

_ 87 ._ 

66 
89 
9.Q_ 

91 

92 
_93. 

94 

95 
_96_ 

97 

96 
99_ 

100 
101 
..lo.2_ 
; 03 
ioa 
105_ 
106 
107 
1 06_ 

109 

110 

1 1 1 

112 
113 
lim- 
its 
116 
1 17_ 
118 

119 

120 
; i?r 
1122 

123_ 

,129 

125 


1 ,2 TEST, Dummy (N2) ,OUM«Y(N3) , I RANK, APLUS, IERR) 

IFdERR ,EQ. 0 ) GO TO 900 

CALL LNCNT(5) 

IFdERR .GT, 0 ) PRINT 360, IERR 

IF_CI6RR_.EG. -1) PRINT 370, ZTEST, IRANK 

360 FORMATC//,* IN CSTAB, SNVDEC HAS FAILED to converge 
1SINGULARVALUE AFTER 30 ITERATIONS*,//) 

■3 70 F ORMAT ( / / « * IN CSTAB, THE. MATRIX SUBMITTED TO 

1 *,016,8,* IS CLOSE TO A MATRIX OF LOWER RANK »,/, 
2ACY I AC IS REDUCED THE RANK MAY ALSO BE REDUCEO*,/, * 


TO THE *,f 4,~ 


400 


3_ =_*., 14) 

I F c I ERR .GT , 0 ) RETURN 

NDUM(l) s N A ( 1 ) 

NOUM(2) s 1 
CALL PRNT ( DUMMY C N2 ) , NDUM , 4HSGVL , 1 f 

continue 




500 


550 


CALL TP ANP ( DUMMY ( N 1 ) , N8,F,NF) 

IF ( IOP(i) ,EQ. 0 ) RETURN 
CALL LNCNT ( 4 ) 

PRINT 500 ' ~ 

FORMATf//,* COMPUTATION OF F MATRIX 

1LY ST ABLE_ IN THE CONTINUOUS SENSE V 

CALL PRNT (A,NA,4H A ,1) 

CALL LNCNTC4) 

PRINT 550, BETA 

FORMAT ( // , * BETA s •7016,8,7) 

CALL PRNT ( B , NB, 4H B ,1) 

.CALL PRNT (F , NF , 4H F ,1) 

CALL MULT (B,NB‘,F,NF, DUMMY, NA') 

CALL SUBT ( A, N A, DUMMY, N A, DUMMY, NA) 
CALw PRNT(DUMMY,NA,4HA-BF, 1)_ 

N2 s Nl+NA ( 1 ) 

N3 « N2*N A ( 1 ) 

XSV = 0 


SUCH THAT A*BF IS 

/) 


CSTOf 
CSTOf 
CSTOC 
C3T0C 
CSTOO 
CSTOO 
CSTOO 

SNVDEC USING ZTEST sCSTOO 
* 7 » IF THE ACCURCSTOO 
CURRENT RANK CSTOO 
CSTOO 
‘CSTOO 
CSTOO 

CSTOO 

“CSTOO 
CSTOO 

_ _ CSTOO 

CSTOO 
CSTOO 
CSTOO 
CSTOO 


ASYMPTOTICALCSTOO 

CSTOO 

CSTOO' 

CSTOO' 
CSTOl 
CST01 
CST01 

CSTO 1 < 

CSTOT' 
CSTO 1 i 
CSTO 1 ( 
CSTO 1 ( 
CSTO 1 t 

CSTOX 

ILV s 0 CSTOT 1 

CALL EIGEN (NAC1),NAC1),DUMMY, DUMMY CN1), DUMMY CN2),ISV,ILV,V, DUMMY (NCST011 
1.3) , IERP) _ CST01 


) GO TO 600 


600 


650 

675 


s NAfl ) 

IF ( IERR .Ed. 0 
_M_s NA(1)-IERR_ 

CALL LNCNT (3) 

PRINT 25, IERR 
CONTINUE 
CALL LNCNT (9 ) 

PRINT 650 

forma T ( // , * EIGENVALUES 
FORMAT (1 OX, 20 16,8) 

CALL LNCNT(M) 

DO 700 1=1, M 
= Nl+I-1 
K = N2+I-1 


OF A'*9F * , / ) 


A-64 


cstoit 

CSTOl 1 
CST01 1 
CSTOl J 
CSTOl 1 

csTon 

CSTOl) 

CSTOX 

CSTOl, 

csto'h 

CSTOX 

CSTOX 

CSTOX 

CSTOX 


i 


- . 12 *' 

1 127 700 

128 C 
— 12 * . 

. 130 


POINT 675#0UMMy(j) ,mjMMV(K) 
CONTINUE 

OETUON _ _ 

ENO " 


C3 
C3 
C3' 
CST 
' CST 






i 


I 

I 


„0 

1 

2 

3 . 

a 

5 

_ V 

7 

8 


3U0ROUTINE DSTAB(A,NA, 8,N8,F,NF,3ING, IOP, SCLE, DUMMY ) 
IMPLICIT REAL'S (A-H,0-Z) 

DIMENSION A(l),8(l),F(l ) , DUMMY ( 1 ) 

DIMENSION NA(2) , NB(2) #NF(2)_»NDUM(2) , I OP (2) , IOPT(3) ij^OUMt (_2) 
LOGICAL SING,3YM 
COMmon/TOL/EP3AM,epsbm, IACM 

..N ■ N A ( t ) #*2 . 

Nt s N ♦ l 
N2 3 Nl + N 


DST 

OST 

OST 

DST 

OST 

OST 

OST 

OST 

OST < 

OST ( 


g 10 



I OPT ( 1 ) s I OP ( 1 ) 

OST r 

1 n 



IOPT (2) s 1 

OST r 

12. 



I0PTC3) = 0 

OST r 

, 13 



CSCLE 3 1 • 05 

OST C 

i 14 



CALL CSTA0(A,NA,8,N8,F,NF, IOPT,CSCLE,OUMMY) 

OSTC 

* 15 



CALL MULT(8»N8,F,NF, DUMMY, NA) 

OSTC 

16 



CALL S»'BT(A,NA,0UMMY,NA,DUMMY,NA) 

' OSTC 

I 17 



CALL EQUATE (OUMMY,NA, DUMMY (Nt ) ,NA) 

OSTO 

1 18 



GO TO 200 

OSTO 

IP 

Z 



OSTC 

, 20 


100 

CONTINUE 

OSTO 

. I __2 1 . 



CALL EQUATE(A,NA,OUMMY,NA) 

OSTO 

1 22 



CALL EQUATE(A,NA,0UMMYCN11,NA) 

OSTO 

23 

C 



OSTO 

.1—20. 


-2.0.0 

CONTINUE 

OSTO 

I 25 



IF( IOP (2 ) .EQ. 0 j GO TO 300 

OSTO 

26 



N3 3 N2 ♦ NA(t) 

OSTO 

i 2- 7 



NO s N3 ♦ NA(t) 

OSTO 

| 28 



ISV s 0 

“ ' osto 

29 



CALL EIGEN (N A ( 1 ) ,NA( 1 ) , OUMMY (N t ) , DUMMY (N2) , DUMMY (N3 ) , I SV , I SV , V , DUMOST 0 

30_ 



IMY(NU) , IERP) 

- OSTO 

31 



CALL EQU ATE (DUMMY,NA, DUMMY (N1 ) ,NA) 

OSTO 

' 32 



M s NA ( l ) 

OSTO 

33 



I F ( IERP .EQ. 0 ) GO TO 250 

OSTO' 

1 34 



CALL LNCMT(31 

‘ OSTO' 

1 35 



PRINT 225, IEPR 


36 

225 

FORMAT(//«IN OSTAB , THE PROGRAM EIGEN FAILED 

TO DETERMINE', 

I 37 



US, 'EIGENVALUE FOR THE MATRIX A-8G AFTER 30 

ITERATIONS ') 

38 



CALL PRNT(OUMMY,NA,UHA-BG, 1 ) 

OSTOf 

39 



I F ( SING ) CALL PRNT ( F , NF , OH G ,1) 

OSTOf 

00 



return 

OSTOf 

1 41 

C 



OSTOf 

I txz 


250 

CONTINUE 

DSTO r 

03* 



alpha = 1.0 

OSTOf 

1 00 



00 275 I si,M 

OSTOC 

_1 _05_ 



II • N2 ♦ I -1 

OSTOC 

06 



12 3 N 3 ♦ I -1 

OSTOf 

i 47 



ALPHA 1 s DSQRT (DUMMY ( 1 1 ) "2 ♦ DUMMY ( 12) **2) 

DSTOf 

1 08 



I F ( ALPHA1 ,LT. ALPHA .AND, ALPHA! ,NE. 0 ) ALPHA s ALPH A 1 OSTOC 

* 09 


275 

CONTINUE 

OSTOf 

50 



alpha s scle*alpha 

OSTOC 

I 51 



GO TO UOO 

OSTOC 

I 52 

C 



OSTOC 

53 


300 

CONTINUE 

OSTOC 

1 54 



ALPHA = SCLE 

OSTOC 

1 55 

C 



OSTOC 

56 


OOO 

CONTINUE 

DST 0 0 

.57 



J s -NA ( 1 ) 

OSTOO 

| 50 



NAX = N A ( 1 ) 

OSTOO 

*59 



00 025 I = 1 , N A X 

OSTOO 

60 



J s J f N4X ♦ 1 

OSTOO 

| 6 1 



< s Ml ♦ J -1 

OSTOO 

1 62 



ntJMMY(K) s DUmMY(J) - ALPHA A-66 

n r a * 


« 


_63_ 

64 

65 

... 66 . 

67 

68 
69_ 
70 
7t 

„.7i 

73 

74 

75_ 

76 

I 77 

’ 79 
80 

1-0-1- 


08T 

OST 

OST 

OST 

'OST 

OST 

OST 


OUMMY (J) ■ DUMMY (J) ♦ ALPHA 
~425 CONTINUE 

CALL EQUATE!8,N8,DUMMY(N2),N8) 

N3 * N2 4- NA ( 1 )*NB(2) 

NPHS « N A ( l ) 4N8 ( 2 ) 

N4 s N3 ♦ N A 1 1 ) 

IF AC a 0 . . . . . _ D5T 

CALL GELIM !NA ! 1) ,NAO) ,OUMMY,NRHS, DUMMY INI ) , DUMMY (N3) , IF AC , OUMMY (MOST 
t4),IERR) t> 3T ' 

IF C IERR ,EQ. OJ GO TO 500 OSTf 

CALL LNCNT(3) OST' 

IF C .NOT. SING ) GO TO 445 OST' 

_PRINT 435 _ _ _ 0STr 

435 FORMAT!//, * T N OSTAB, GELIM HAS FOUNO THE MATRIX ( A-BG) ♦ (ALPHAJOSTr 
II SINGULA ’5 OST C 

CALL PRNT' ’ *,4H A__.,J.) OSTC 

CALL PRNT v u F,4H G ,1) 

GO TO 465 


ft45_C0NJINUE_ 

CALL LNCNT(3) 

PRINT 455 

«55 FORMAT!//.' IN OSTAB , GE LIM HAS FOUNO THE MIATRJX A » ! ALPHA )I 

tULAR ') 

CALL PRNT ! A , NA , 4M A ,1) ^ 

465 CONTINUE _ „ 

CALL LNCNTC3) 

PRINT 475, ALPHA 

475 FORMAT!//, *_ .ALPHA a '.,016.8) . 

RETURN 


103 
-104 
_|l.05 . 
06 
107 

1 .08. 
09 

no 

V 1 

113 

P 

f 16 
_1 1 7 

ill 

.120 

r 

124 


.500 CONTINUE 

CALL EQU ATE! DUMMY !N1 ),NA, OUMMY, NA) 

CALL TRANP ! DUMMY !N2) ,NB,0UMMY(N1 ) ,NOUM) 

N3 b N2 ♦ N 

CALL MULT!DUMMY!N2) ,N0,OUMMY!N1 ) ,NOUM, DUMMY (N3 ) , NA ) 

CALL SCALE ! DUMMY (N3) ,NA,0UMMY(N1) ,NA, 4,0) 

STM s .TRUE. 

IOPTfl) = 0 

EPSAsEPSAM uaiH 

CALL 8ARSTW C0UMMY,NA,8,NB,0UMMY!N1 ) , N A , I OPT , SYM, EPS A, EPS A , DUMMY ! N20STO 

\w * - - — -- - — • - - - nsTO 


OSTO 
OSTO 
OSTO 
'OSTO 
OSTO 
SINGOSTO 
OSTO 
OSTO 
OSTO 
OSTO 
OSTO 
OSTO 
OSTO 
OSTO 1 
OSTO' 
OSTO ^ 
OSTOf 
OSTOf 
‘ OSTOf 
OSTOC 

OSTO 1 

OSTO 1 
OSTOi 


OSTO 1 
OSTOI 
OSTO 1 
OSTOI 
OSTOI 
OSTOI 
■OSTOI 
OSTOI 
OSTOI 
OSTOI 
OSTOI 
OSTOI 
OSTOI 

IAC=IACM OSTOI 

CALL SNVDEC ! IOPT,M,M,m,m, DUMMY, M, DUMMY !N t), I AC, ZTE8T, OUMMY (N2),OUMDST01 
1MY!N3) ,IRANK, APLUS,IERR) " OSTOI 

IF! IERR ,EQ, 0 ) GO TO 700 OSTO' 

_ CALL LNCNTI5) 

IF! IERR , GT , 0 ) PRINT 625, IERR 
IF( IERR ,EQ. -1) PRINT 650 , ZTEST , I RANK 
625 FORMAT!//, » IN OSTAB, SNVOEC HAS FAILED TO CONVERGE TO THE 
l SINGULAR VALUE AFTER 30 ITERATIONS*) 

650 FORMAT!//,* IN DSTA8, THE MATRIX SUBMITTED TO SNVOEC, USING ZTEST 


1 ) ) 

CALL EQUATE! DUMMY !N1 ) , NA , OUMMy , NA ) 

CALL TRANP!B,N8,DUMMY!N1J^NDUM)_ 

CALL MULT!B,NB,DUMMY(Ni),NDUM,0UMMY!N2) ,NA) 
CALL ADD ! OUMMY, NA, DUMMY !N2 ) ,NA, OUMMY, NA) 

CALL EQUATE! A , NA , DUMMY !N1_) ,NAJ _ 

IF! .NOT, SING ) GO TO 600 ’ 
call MULT !B, MB, F,NF, DUMMY INI) ,NA) 

CALL SUBT!A,NA, DUMMY ! N l ) , N A , OUMMY ! N 1 ) , N A ) 

600 CONTINUE 

IOPT !!)..= 3 _ 

M s N A ( 1 ) 

TACsIACM 


M5, * 


OSTO 

OSTO 

OSTO 

OSTO 

OSTO 

OSTO 


a 


... 126. 

I 127 
I 128 

-_.t2.9_ 

I 130 

I 131 

1 132. 
133 

I I 3 a 
-L35_ 
136 

I 137 
|-L3a. 

139 

lao 

1-191- 

• ltt2 

143 

1 -144_ 
145 
146 
- a -1.4 7_ 
I 148 
■ la9 
— 15 ft.. 
2 1 5 1 
1 152 
— 1.53.. 
*154 
Il55 
__.156 
157 
|l58 
.1.1 59 . 
160 

* 161 
162. 
163 

1 164 
1 65— 
i 66 
167 
_|; 6Q_ 
1 69 
170 

173 

i»- 

* 76 
l 7 7_ 

1 7 9 
79 
190 
491 
192 
TS 3 
194 

1 95 
96 
197 
*3 8 


, IS CLOSE 
WEOUCEO THE 


TO A 
RANK 


.!*_.* #016,8# * 

2ACY I AC IS 
3 * * » 1 4 ) 

IF.C IERR_ .GT. 

NOUMdls NA Cl) 

N0UM(2)3 l 

_C ALL PRIU ( DUMMY ? N2 ), NOUM, aHSGVL, t ) 


MATRIX OF LOWER 
MAY ALSO 8E 


RANK*,/** IF THE 
CURRENT 


REDUCED * # /, * 


0 ) RETURN 


700 


CONTINUE 

.CALL T9ANP(8,N8,0UMMY(N2) ,N0UM) 

CALL MULT (DUMMY (N2),N0UM,0UMMY (Nt ) , NA , DUMMY , NF ) 
IF ( .NOT. SING ) GO TO 8 00 
CALL AOO?F,NF,OUMMY,Nr ,F,NF) _ 

GO TO 900 


JLOO .CONTINUE 

CALL EQUATE?DUMMY,NF,F,NF) 


ACCURD3T 
RANK D3T 
DST 
DST 
DST> 
DST' 
DST' 
DST' 
DST' 
_ DST' 
OST r 
DST r 

DST r 

DSTC 
DSTC 
DST 0 


0 ) RETURN 


DSTO 
OSTO 

DSTO 

OSTO 
OSTO 
OSTO 
STA808TO 
DSTO 

DSTO 

DSTO 
OSTO 
_ OSTO 
DSTO' 
OSTO 
DSTO' 
D 3 T 0 '. 
OSTO’. 
OSTO! 
‘ OSTO! 
DSTO! 
OSTO! 
DST01 
OSTO 1 
DSTO! 
DSTO 1 

EIGEN (NA(l) ,NA(1) .DUMMY, DUMMY (N1 ) , DUMMY ( N2 ) , I S V , I S V , V , DUMMY ( NDS T 0 1 


900 CONTINUE 

IF C IOP(t) ,EQ. 

CALL LNCNTC4) 

PBINT 10.00 . 

1000 FORMAT?//, » COMPUTATION OF F SUCH THAT A-BF IS ASYMPTOTICALLY 
1LE IN THE DISCRETE SENSE*,/) 

CALL PRNT ( A , N A , 4H A ,1) ~ _ 

CALL PRNT ( B , N8 , 4H B~ ,1) 

CALL LNCNT ( 4 ) 

. PRINT 1100, ALPHA _______ 

1100 FORMAT?//, * ALPHA s *,016.8,7) 

CALL PRNT ( F , NF , 4H F , 1 ) 

CALL M ULT(B,NB,F,NF, DUMMY, NA) 

CALL SIJBT(A,NA, DUMMY, NA, DUMMY, NA) 

CALL PRNT(DUMMY,NA,4HA-8F, 1 ) 

CALL LNCNT (3) 

PRINT 1200 

1200 FORMAT?//, * EIGENVALUES OF A-BF*) 


NOUM? 1 ) 

r 

NA(1) 

N0UM(2) 

5 

1 

N2 s Ml 

♦ 

N A ( 1 ) 

N3 3 N2 

♦ 

NA ( 1 ) 

1 3 V s o 



CALL EIGEN?NA?l) 


r 


_9 .. 13),.IERR) __ 

I F ( I ERR ,EQ. 0 ) GO TO 1300 
CALL LNCNT ( 3 ) 

P_R I NT 1 250_ _ 

1250 FORMAT?//, * IN DS T A0 ,~ THE PROGRAM' EIGEN "FAILED TO DETERMINE" 
115,* EIGENVALUE FOP THE A-BF MATRIX AFTER 30 ITERATIONS*) 
NDUM? 1)=NA ( D-IEHR 

1300 CONTINUE 

CALL JUXTC?DUMMY(N1), NDUM, 0UMMY?N2), NDUM, DUMMY, NDUM1) 

CALL P«NT?DUMMY,NDUM1,4HEIGN,~1 )' 

CALL LNCNT ( 4 ) 

PRINT 1400 

i‘400 FORMAT?//,* MODULI OF EIGENVALUES OF A-BF*,/) 

M sNDUM? 1 ) 

DO 1500 I = 1,M 
‘j s N1 ♦ I • | 

K s N2 ♦ I - 1 

DUMMY ( I ) sDSORT (DUMMY ( J ) **2 + DUMMY(K)**?) 

1500 CONTINUE 

CALL PRNT (DUMMY, NDUM, 4HM 00 ,1) A-68 


THE* 


OS T 0 1 
DSTO! 
DSTO! 

OST 0 1 

, OS T 0 1 
OSTO 1 
DST01 
' DST01 
DSTO 1 
DST01 
‘ 0ST01 
DSTO 1 
DSTO 1 
DST 0 1 
DSTO 1 
DST01 
OSTO 1 
DST 0 1 
OS T 0 1 
DST01 
DSTO! 



% 

- 1® ' c .... _ _ OST 

S tQC RETURN " “ “ OST 

t«t ENO OST 





.SUBROUTING 01 SREG ( A ,N A ,8» N0, H, NH,Q , NO, R, NR , F , NF , P, NP, IOP , IOENT, OU 013' 


l MM Y ) OIS 

IMPLICIT PEAL*B (A-h,0-Z> 013 

OIMENSION ACt),0(t),O(l),R(i),F(l),P(t),OUMMY(t) CIS' 

DIMENSION NA(2),nBC2)',NQ<2)',NB(2),NF<2),NP<2) * OIS' 

0IMEN3I0N I0P(5) 013' 

0IMEN3I0N H(l) ,NHC2) ,N0UM(2)_ _ _ OIS' 

LOGICAL I DENT * 'OIS' 

COMmon/TOL/EP3AM,EP38M,IACM OIS' 

COmmon/CONV/3UMCV,!ICTCV,S£RCV,MAXSUm OIS' 

N b N A ( l ) **2 " ' ' * ' OlSf 

NIb N 4-1 OIS' 

N2* Nl+N _ _ _ DISC 

~N3a~ N2tN *“ 0I3r 

013' 

_KS3 b 0 OISC 

IbIOP(J) '* ' 0130 

0130 

_IF ( IOP ( 1 ) ,£Q, 0) GO TO 85 0130 

CALL LNCNT (5 ) ‘ 0130 

PRINT 25 0130 


lTIMAL*,/,* DIGITAL REGULATOR PROBLEM WITH NOISE-FREE MEASUREMENTS '0130 
2 ,/) 0130 

CALL PRNT(A,NA,«H A_ , 1) <r> _ 0130 

CALL PRNT CB,NB,4H 8 ,1)’ " " 0130 

CALL PRNT(0,NQ,4W 0 ,1) OISO 


il IF( .NOT, IDENT ) G0_T0_45 _ OISO 

M 28 CALL LNCNT ( 3 ) " DISO 

X 29 PRINT 35 OISO 

30 __ 35 FORMAT!/,! H IS AN IDENTITY MATRIX*,/) OISO 

t 31 GO TO 65 - • OISO 

I 32 45 CONTINUE OISO 

!.„33 CALL PRNT(H,NH,4H H ,1) OISO 

34 CALL MUlTCQ, NO, H,NH, DUMMY, NH) 'OISO' 

I 35 CALL TRANP(H,NH, DUMMY (N1),NF) DISO' 

1_ 36 CALL MULT(OUMMY(Nt) ,NF, DUMMY, NH,0,NQ) OISO 

37 CALL LNCNT ( 3 ) OISO 

x 38 PRINT 55 DISO' 

|._39 55_F0RMATC/, *_ MATRIX ( H TRANSPOSE )QH*,/)_ _ _ OISO- 

40 CALL PRNT(Q,N0,4HHTQH, l) ’ " ~ ‘ OISO' 

41 65 CONTINUE OISO' 

1 42 CALL PRNT (R , NR , 4H R_ j 1 ) _ OISO' 

1 43 CALL LNCNT ( 4 ) ' ~ ~ OISO' 

44 PRINT 75 OISO' 


1 _ 45 7.5_ FORMAT (/ / , * WEIGHTING ON TERMINAL VALUE OF STATE VECTOR*,/) DISO' 

46 CALL PRNT(P,NP,4H P ,1) ----- .... . oiSOf 

47 C OISO' 

I . 48 85 CONTINUE _ OISO' 

49 IFC(IOPCl) ,NE. 0) .OR. IOENT ) GO TO 100 " ~ OISO' 

50 CALL MULTfQ, NO, H,NH, DUMMY, NH) OISO' 


51 _ _ . _ C ALL TRANP(H,NH,0UMMY(N1),NF) OISO' 

{ 52 CALL MULT(OUMMY(Nl),NF, DUMMY, NH,Q, NO) * DISOi 

53 C OISO' 



54 . 

100 CONTINUE 

OISO' 

i 

55 

1 = 1- 

1 

0130' 

1 

56 

CALL 

EQUATE(P,NP,DUMMY,NP) 

DISO' 


-57 . 

CALL 

MULT (P,NP, A ,NA, DUMMY (N1 ) , N A ) 

0 1 SO 0 


58 

CALL 

TRANP(B,NH, DUMMY (N2) ,NF) 

DISO' 

t 

59 

CALL 

MULT(0UMMYfN2) ,NF, DUMMY (N1 ) ,NA,F,NF) 

D I S 0 0 


60 

CALL 

M ULT (P, NP, 0 , MR, DUMMY (N1 ) ,N8) 

OISO' 


61 

CALL 

M ULT ( DUMMY ( N2) ,MF,0UMMY(N1 ) , N8 , DUMMY ( N3 ) , NR ) 

OISO' 

i 

|62 

CALL 

ADO (R, NR, DUMMY ( N3) ,NR, DUMMY (N1 ) , NR) A _ 7Q 

D I SO 0 


I 

I 

I 


63 _ 

64 

65 

66 . 
67 
65 

69 _ 

70 

71 

...72__ 

73 

74 

75 

76 

77 

7.8. 

79 

80 

8J 

82 C 

83 

... 84 . 

85 

86 

_87 

88 

89 

_ 90 

91 

92 

93 . 

94 C 

95 
9b 
'97 

98 

99 
100 ' 
101 c 
1 02 _ 

103 

104 

105 

106 

107 

108 


IOPT s 3 013' 

IAC*UCM ’ ‘ - ^ ... - Qjg, 
MF » NP ( 1 ) 013' 
CALL SNV0EC( IOPT, mF,MF,MF,mF,OUmmy(nI > , NF ( 2 ) , p , I AC , ZTEST, DUMMY (^2) 0 IS 


.200 

250 


300 


1 ,D'I**V(N3) , IBANK, APLUS, IERR) 

IF( IERR .EO.O) 50 TO 300 

..CALL LNCNT(5) . ...... . _ . ... 

IF ( IEPB .GT, 0) PRINT 200, IERR 
IFCIEPP ,EQ, -l) PPINT 250 , ZTE3T , IBANK 

FORMAT (// , ' IN 0I3BEG,_SNVD6C MAS FAILEO TO CONVERGE T0_TW6 »,I4, 
l ' SINGUL ARVALUE AFTEB 30 ITERATIONS' , //) 

FORMAT!//,' IN DI3REG, THE MATRIX SUBMITTED TO 3NVDEC USING ZTEST 
la', 016. 8,' 13 CLOSE TO A MATRIX OF LOWER RANK' 

2 I AC 13 BEOUCEO THE BANK MAY ALSO 8E 

3 ,14) 

IFC I£RR_ .GT, 0 ) R ETURN 

NDUM(l) a NA(1) 

NOUM(2) a 1 

CALL PRNT ( QUMMY (N2 ) , N OUM, 4H3 6VL, 1 ) 


REOUCEO * # / , * 


,/,'IF THE 
CURRENT 


DISf 
DISC 

disc 
0 1 sr 
DISC 
0130 
0130 
0130 
ACCURACYDISO 
RANK a 'DISC 
0130 
0130 
0130 
0130 
0130 


CONTINUE 

.CALL MUL.T(B,NB,F,NF,OUMMY(Nn f NF) 
TR ANP(F,NF, DUMMY (N2 ) ,N0) 


CALL 

CALL 

tALL 

CALL 

CALL 

.CALL 

CALL 

CALL 

CALL 


MULT (DUMMY (N2) , N8, DUMMY (Nt ) ,NF,P,NP) 

ADO(Q,NQ,P,NP,P,NP) __ 

MULT ( 8, N8,F,NF, DUMMY (NT),NA) 
SU8T(A,NA,DUMMY(N1 ) ,NA, DUMMY (Nl) ,NA) 

MUL T ( OUMMY , N A , OUMMY ( N 1 ) ,_N A , DUMMY ( N2 ) , N A ) 
TRANP(DUMMY(N1) ,NA, DUMMY (N3),NA) 

MULT (DUMMY (N3) ,NA, DUMMY (N2) ,NA, DUMMY (Ml ) , NA ) 
ADD(P,NP,OUMMY(Nt ) ,NA,P,NP) _ 


350 


400 


IF ( IOPC2) ,EQ. 0 ) GO TO 400 

CALL LNCNT(5) _ _ 

PRINT 350,1 

FORMAT ( / // , ' STAGE ',15,/) 

CALL PRNT ( F , NF , 4H F ,1) 

CALL PRNT(P,NP,4H P ,1) 

CONTINUE _ 

I F ( I ,EQ, 0 ') GO TO 600 
CALL MAXEL(DUMMY,NP, AMORMt) 

CALL SUBT ( DUMMY, NP,P,NP, DUMMY ( N2 ) ,NP) 
CALL MAXEL(DUMMY(N2),NP,ANORM2) 

IF C ANORM i ,NE, 0.0 ) GO TO 500 
GO TO 100 


109 

no 

til 

112 

113 

,U« 

15 

*.16 

117 

n: 

120 

i <21 

I 22 

“23 

124 

P 5 


500 

.550 

575 

600 


CONTINUE 

I F ( ANORM 1 .GT. 1.0 ) GO TO 550 
IF ( ANDRM2/ANORM1 .LT. RICTCV ) 
GO TO 575 
CONTINUE 

IFC ANORM2 .LT, RICTCV )'«SS»1~ 
CONTINUE 

IFC KSS .EO. 1) GO TO 600 
GO TO 100 


KSS s 1 


CONTINUE 
K a IOP(l) ♦ 
IFC K ,EO. 0 
IF( KSS .EG. 
CALL LNCNTC4) 
PRINT 650 


I OP ( 2 ) ' 

) RETURN 
0) GO TO 


700 


0130 
0130 
0130 
0130 
0130 
DISO 
0130 
OISO' 
DISO' 
DISO' 
OISO' 
0130' 
0130' 
DISOf 
OISOC 
0130' 
DISC' 
DISO 1 
DISO 1 
01 SO 1 
01301 
01301 
DISO 1 
01301 
OISOl 
01301 
0 ISO 1 
■OISOl 
01301 
OISOl 
OISOl 
OISOl 
OISOl 
OISOl 
OISOl 
OISOl 
OISOl 
CIS01 
OISOl 
D I SO l 
OISOl 
OISOl 
OISOl 
OISOl, 


A- 71 


m 


*12* - 

650 

ii*7 

C 

1.28 

700 

129 


■130 


|i31 


U2_ 


133 


1 1 3a 

SOO 

!i35 


136 


1 37 


I.3B 



FORMAT (//,_* STEADY •STATE SOLUTION HAS BEEN REACHfiO IN DI3REG*,/) 01301 


— '• - ' 0130 1 

CONTINUE OISOl 

I F < IOP(2) ,NE. 0 ) RETURN _ __ _ OISOl 

IF C IOP(l) ,EQ. 0 ) RETURN ' * 01301 

CALL LNCNT ( 3 ) 01301 

I a TOP ( 3 ) *1 . _ _ 01301 

PRINT BOO, I ’ - - 01301 

FORMA T(/,' F AMO P AFTER ',15, * STEPS',/) OISOl 

CALL PRNT ( F , NF , AH F _ , 1) _ 01301 

CALL PRN T ( P , NP , AH P , 1)~ ~ ' OISOl 

RETURN OISOl 

ENO _ OISOl 


- I — 

j 

! 

I 

1 


SUBROUTINE CNTREG! A , N A , B , N0 ,H, NH , Q ,NQ, R , NR , Z , W ,L AM0O A , S #F , NF ,P,NP CNT' 
l,T,IOP,IDENT,DU“*Y) CNT r 

IMPLICIT REAL** (A.H,0-Z) CNT r 

_ _____ CNT*' 

oImEnS ion iio.Yt i ),H( ff,Q ( l j 0 r (Y) , z ( iV, Wd ) ,Y ambo a ( d ,s ( t j, f (i ) ,>cn r 

1(1)»TU)#0UMMY(J) CNTr 

DIMENSION NA (2 J, NS (2) #NN(2) , NO (2) , NR (2) ,NF (2), NP(2) , IOP ( 3 ) » NOUMi ( 2CNT r 
1>,N0 Um 2(2) CNTr 

LOGICAL IDENT CNTC 

-REAL»8 LAMBDA _ CNTC 

COMMON/CON V/SUmCV#RICTCV,SERCV#waxSUM CNTC 

CNTr 

-TF(. I0PC 1 )* EQ.-0- X G0_.t0_65 CNTC 

CALL LNC NT (5 ) CNTO 

IF C IOP(3) .EQ. 0 ) PRINT 25 CNTC 

25. EORMATC//- PROGFAM__10 SOLVE .THE._TIMEt.INVAPIANT. FINITE_-OURATION CONCNTO 
tTINUOUS OPTIMAL*/* REGULATOR PROBLEM WITH NOISE-FREE MEASUREMENTS *CNT0 
2) CNTO 

.IEL_IOP(3)_ »NE». .0 )_ PRINT__3QL _ _ CNTO 

30 FORMAT ( // * PROGRAM TO SOLVE THE TIME-INVARIANT INFINITE-OURATION CCNTO 
10NTINU0US OPTIMAL*/* REGULATOR PROBLEM WITH NOISE-FREE MEASUREMENCNT 0 


2TS*) _. . 

CALL PPNT(A,NA,aH A ,1) 

CALL PRNT(B,NB,AH 8 ,1) ^ 

CALL PRNT(Q,NO,«H 0 i ) Y__. 

I F( *N0T . IDENT ) GO TO «5 
CALL LNCNT ( 3 ) 

. PRINT 35 _. __ . .. 

35 FORMAT!/* H is AN IOENTITY MATRIX*/) 
GO TO 55 


«5 CONTINUE 

CALL PRNT(H,NH,4H H ,1) 

CALL MULT(G, NQ, H,NH, DUMMY ,NH) 

Nl* NH(1 ) *NH ( 2 ) + 1 

CALL TRANPfH,NH,DUMMY(Nl ) ,NDUM1 ) 


CALL MUL T (DUMMY (N 1 ),NOUMl ,OUMMY,NH,G, NQ) 

CALL LNCNT ( 3 ) 

PRINT 50 

50 FORMAT!//* MATRIX (H TRANSPOSE) QH * ) 

CALL PRNTYQ,NQ,0, 3) 

55 CONTINUE 

CALL PRNT_(R, NR# 4H R #1) 

IF! IOP ( 3 ) .NE. 0 ) GO TO 65 
CALL LNCNT (4 ) 

PRINT 60 ~ " 

60 FORMAT!//* WEIGHTING ON TERMINAL VALUE OF STATE VECTOR*/) 
CALL PRN T (P t NP # 4H P , t ) 


65 CONTINUE 

CALL EOUATE(R#NR,OUMMV,NR) 

N = NA ( 1 ) **2 
Nl s NR( 1 ) *N0 (2 ) ♦ 1 
CALL TRANP (B,N0 r DUMMY (Nl ) , NDU M 1 ) 

N 2 s N 1 ♦ N 
L = NR(1) 

I OPT = 0 

"I FAC = 0 " " 

CALL SY m PDS(L,L#DUMMY,NB( 1 ) , DUMMY (Nl ) ,IOPT,TFAC,DET, ISC ALE, DUMMY (NCNT 00 

C N T 0 0 
CNTOO 

0 ) GO TO 100 A _ 73 CNTOO 


CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO < 

CNTflf 

CNTO f 

LNTO' 

CNTOf 

CNTO f 

CNTor 

CNTOC 

CNTOr 

CNTOC 

CNTO r 

CNTOr 

CNTOC 

CNTOr 

CNTOO 

CNTOO 

CNTOO 

CNTOO 

CNTOO 

CNTOC 

CMTOr. 

CNTOO 

CNTOO 

CNTOO 

CNTOO 

CNTOO 

CNTOO 

CNTOO 

CNTOO 

CNTOO 


12) » I ERR ) 

IF! IERP , ED . 


63__ 

1 64 
65 

. .66 
| 67 
I 68 C 

_ 64 ... 

70 

I 71 

1 7 

73 

1 74 
.75 . 
76 
r 77 
I 29. 

1 79 
80 
|_9L 

I 82 

83 

-i..8.4. 

I 85 
* 86 

T 8L. 

88 
89 
9JL 


_C ALL INCNT(U) 

PRINT 75 

75 FORMAT!//* IN CNTREG, THE 
1 R NOT SYMMETRIC POSITIVE 
RETURN 


SUBROUTINE 

DEFINITE*/) 


SVMPOS HAS FOUNO THE MATRIX 


ioo.continue 

CAUL EOUATE(OUHMVCNl) rNOUHl ,0UMMY,N0UM1 ) 

CALL MULT(B,N0#OU«MY(Nt) f N0UM1 ,0UMMY(N2) # NA) 
CALL SCALE(OUMMY(N2),NA,OUMMV(N1),NA,-1,0) 

N3 * N2 ♦ N 

IF ( IDENT ,0R. (lOPfl) ,NE. 0) ) GO TO 200 
CALL HULT(Q,NQ,H,NH,0UMMY(N2),NH) .... . 

CALL T«»ANP(H,NH,0UMMYCN3) »NOUMl) 

CALL MULT ( DUMMY ( N3 ) #NOUMl , DUMMY (N2) ,NH,0, NO) 


200 


1 


91 

92 
93_ 

1 94 
95 

96 _ 

97 

1 98 
.99 
100 

1 131 
102 _. 
103 
104 

.it Q-5__ 

*106 

107 

I t 08__ 
t 09 
110 

, m \ 1 l- 

It 12 

" 13 
114 

I 15 

i. 16 

-.117 

k:: 

120 - 

421 

I 22 

* 23 
124 

I”. 


CONTINUE 
CALL SCALE(Q'NQ,Q,NQ,*1,0) 

_ _CALL JUXTR(A,NA,Q f NQ,Z,NOUMl) 

CALL TRANP(A,NA,0UMMY(N2) ,NA) 

CALL SCALEC DUMMY(N2),NA f DUMMY(N2)»NA,«t.O) 

L » 2*N_*..l . 

CALL JUXTR (DUMMY (Nl),NA,DUMMY(N2),NA,Z(L),N0UMl) 

CALL 3CALE(Q,NQ,Q,NO,-t.O) 

__ flDUM2Ct)„* 2*NA ( 1 ) .<!*_ . ...... 

NDUM2(2) a NDUM2(1) 

IF( IOP(l) .NE. 0 ) CALL PRNT (Z, N0UM2, 4H Z ,1) 

CALL. E QU A T E ( Z , NO U M 2 , OU MM y ( N 1 ) j_N DU M 2 ) 

M s a*N 
N2 3 M ♦ N1 

..L .» 2*N A ( 1 ) . ... . - 

N3 * N2 ♦ L 
N4 s N3 ♦ L 

ISV S L„ _ _ ..... 

ILV s 0 

CALL EIGEN (L »L#OUMMY (Ni ) , DUMMY (N2) , DUMMY (N3) , ISV , ILV , W, DUMMY (N4 ) , 

IERR) ... . 

I F ( IERR .EO. 0 ) GO TO 300 
CALL LNCNT ( 4 ) 

IF C IERR .GT. 0_ ) GO 1P_250 .. 

PRINT 225, IERR 

225 FOR M A T ( / / * IN CNTREG, EIGEN FAILED TO COMPUTE THE *,I6,* EIGENVEC 

lT.OR. OF. .Z *./) 

RETURN 

250 CONTINUE 

PRINT .275, IERR 

275 FORMATC//* IN CNTREG, 

IUND AFTER 30 
RETURN. _ 


THE 

ITERATIONS IN 


’,16,* EIGENVALUE 
EIGEN*/) 


OF Z HAS NOT' BEEN FO 


300 CONTINUE 

IF C IOP(l) ,E0. 0 ) GO...TO 400 .... 

CALL LNCNT ( 3 ) 

PRINT 325 

.325 FORMATC//* EIGENVALUES OF Z*) 

NDUMl ( 1 ) s L 
NOU M 1(2) = 2 

C ALL. °RNT( DUMMY ( N2 ) ,NOUMl ,0,3) 

CALL LNCNT (3) 

PRINT 350 

350 FORMATC//* CORRESPONDING EIGENVECTORS') 
CALL PRNT (W,NDUM2, 0, 3) 

A- 74 


CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO' 
”CNTO f 
CNTO' 
CNTO' 
"CNTO' 
CNTO' 
CNTO' 
“CNTO' 
CNTOC 
CNTO' 
CNTO' 
CNTOC 
_CNTOC 
CNTOC 
CNTOC 
CNTOC 
' CNTOC 
CNTOC 
CNTO r 
CNTO' 
ICNTOC 
CNTO! 
CNTO! 
CNTO 1 
CNTO 1 
" CNTO! 
CNTO 1 
CNTO 1 
CNTO 1 
CNTO 1 
CNTO 1 
' C N T f) 1 

CNT01 
CNTO 1 
' CNTO 1 
CNTO 1 

C N T 0 1 

CNTO! 
CNTO! 
CNTO! 
CNTO! 
CNTrti 
CNTO! 
CNTO 1 
CNTO 1 
CNTOt 
CNTO 1 
CNTO! 


uoo CONTINUE 

CALL £QUATECW,NOUM2,DUMMY<Nt) ,NOU*2) 
J1 • l 

J2 * 1 ...... 

M a ?*N 
NOUM |(t) a L 

. _N 0 *JM 1 ( 2 ) a„l _ . ._ .... . . .. ... . 

K4 * N4 


. I»t . _. 

415 CONTINUE 

IF ( I .CT. L ) GO TO 515 
«l.» N2+I-1 ... ... 

K2 * N 1 ♦ c X-l )*L 
K5 * N3+I-1 

IF.(OUMMY_(K l ) .^GT., jQ«JLJ__GO ..TO. 425.. _ 
J « <JI-1)*L*mm 
J l * Jl + 1 

IF COUM^r (A3 ) ,NE *_0 . QJl.J.1 14 L+J 

GO TO 450 
425 CONTINUE 

DUMMY (Ktt)a.I _.. 

K 4 ■ K 4 ♦ 1 
j • (J2 -i>*lm 
J2_* J2+1 


Ipv 


J2 ♦ 1 


IF ( 0UMMY(K3) ,NE. 0.0 ) 

450 CONTINUE 

CALL EQUATE(DUMMY<K2),NpUMl,W<J),N0yMn 

IF(0U^MV(K3) ,EQ. 0.0) GO TO 500 
I « I M 

. . K2 a K2tL ... 

J » J+L 

CALL EQUATE (DUMMY (K2),N0UMl,W(J),N0UMl) 

500 CONTINUE 

1 = 1 + 1 
GO TO 415 
515 CONTINUE 


CALL NULL(LAM0DA,NA) 

«Q a -1 _ 

J * -NA(1) 

NAX 3 NA ( 1 ) 

1 = 1 


169 520 CONTINUE 

170 IF( I ,GT , NAX ) GO TO 530 
J s NAX + J ♦ 1 
KO s~ KO +' 1 
K 1 3 N4 + KO 
K 2 = OUMMY(Kl) 

K 8 N2+K2-1 
L AM0O A ( J ) 3 OUMMY(K) 

_K 3 = N3 + K2-1 

I F ( DUMMY (K3 ) ,EQ. 0.0 ) GO TO' 525 
K 4 s Jtl 

L AMSC A ( K 4 ) s -DUMMY ( K 3 ) 

K 4 s K 4 + NAX 
LAM0OACKU) s DUMMY (K ) 

K4 3 K4-1 

UAMgoA(Ka) 3 0UMMY(K3) 
kg = m ♦ (i-n*L ♦ i 
«(, s K5 + L 

CALL EQUATE(W(K5) .NOUM1 , DUMMY (N'l ) ,NOUMt ) 
CALL EQUATECWCK6) ( NOU«M ,rt(K5) •NDU'*! ) 


CNT 
” CNT 
CNT 
__ CNT 
*" CNT' 
CNT' 
CNT i 
CNT' 
CNT 1 ' 
CNTr 
CNT' 
CNT C 

CNTr 

“CNTr 

CNTr 

CNTr 

CNT 0 
CNTO 
CNT 0 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
“CNTO 
CNTO 
_ CNTO 
' CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO’ 

cnto: 

CNTO* 

CNTO! 

~ ' CNTO! 
CNT 0 1 
CNTO* 
CNTO 1 
CNTO 1 
CNTO! 

" CNTO 1 
CNTO 1 
CNTO 1 
CNTO 1 
CNTO! 
CNTO! 
CNTO! 
CNT01 
CNTO! 

”■ CNTO 1 
CNTO 1 
CNTO 1 
C NT 0 1 
CNTO! 


A- 7 5 


t 


1*9 
-190 
gl9t 
_l 92 
1 9 J 

1 19a 
195 _ 
196 C 

1 197 
19« _ 
199 

1 200 
201 
202 
20 J 

1 204 

205 

206 

1 207 .C. 
20S 
209 

,2l.0_ 

l2tt 

*212 

. 211.. . 

1 2 1 a 
215 

_216 

|217 
1219 
*219 . 
220 
1221 
. 1222 ... 
223 
■ 224 
225 C 
226 

I 227 

229 .... 

1 229 
2 30 

231 

232 
233 
23a ... 
235 
236 

.237 

1 238 
1239 
.240. ... 
i?ai 
| 24 2 

243 

I ? 4 4 
>45 
246 . 
247 C 
1246 
1 249 
250 
*251 


_ CALL EQUATE ( DUMMY ( N 1 ) » NOUM1 , W ( K6 1 , NDUM 1 ) 

I ■ IM 

J ■ MAX ♦ J M 

525 CONTINUE __ 

I • I ♦ t 
60 TO 520 
.530 CONTINUE 

JP( I0P C l ) ,EQ. 0 ) GO TO 700 

CALL LNCNT ( 3 ) _ 

POINT 535 

535 FORmaT(// # OEOOOEPEO EIGENVECTORS*) 

CALL PPNT(*,NOUM2,0, 3) __ 

CALL LNCNT ( 4 ) 

POINT 545 

545 FORMAT (//» LAMBDA MATJ»IX_0F_E]GENVALU€3 OF Z WITH_P03ITiVC 
tOTSV) 

CALL PRNT(LAMBDA,NA,0,3) 


"CALL MUL T < Z , NDUM2 , W ,N0UM2 , DUMMY* NT) »'NDUM2) 
L « NDUM2(1) 

m _ • l**2 

N2 a NlfM ’ ~~ 

CALL EQUATE(w,N0UM2,0UMMY(N2),N0UM2) 

N3 a N3 *m ^ 

N4 a N3+L 
IFAC * 0 


CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
• CNTO 
CNTO 
CNTO 

CNTO 

CNTO 
CNTO 
* CNTO 
CNTO 

real pacnto 

CNTO 
CNTO. 
CNTO- 
" CNTO 

CNTO 
CNTO; 
CNT ), 
CN f 0 

CN . -J- 

“CNTO; 
CNTO, 
N4) flEOOCNTO; 

CNTO; 


__ . CALL_CELIM(LfLf DUMMY ,N2) f L^OU M MY(Nl ) , DUMMY (N3), IFAC, DUMMY ( 

1) ' 

IK IERO .EQ. 0 ) GO TO 600 

CALL LNCNT ( 4 ) ... _ . ... 

POINT 550 

550 FO«MAT(// # IN CNTREG# GELIM HAS FOUND THE REOPOERED MATRIX ft TO B 
IE SINGULAR */) _ 

600 CONTINUE 

CALL PRNT (DUMMY : N 1 ) , N0UM2 , 4HW I Z'H , 1 ) 

700 CONTINUE 

NDUMl(t) • 2*N A ( 1 ) 

. N0UM1 (2) 3 N A ( 1 ) ... . . _ 

N2 s 2*N t N 1 

CALL TRANP(H,N0UM1 # DUMMY (N2) ,N0UM2) 

NW1 1 a N l . _ . . _ 

NDUMl(l) s N A ( 1 ) 

CALL TR A NP (DUMMY (f-, ,MDUMt , DUMMY (NH 11 ) » NDUM t ) 

L I ,N2-fN 

NW21 b NWU+N 

CALL TRANP (DUMMY (L) ,NOUMt ,0UMMY(NW21) ,N01JM1 ) 

L » 2*N*1 ... .. . 

NDUM l ( 1 )=2*NA(i) 

N3 s N2 ♦ 2*N 

CALL TRANP(W(L1 ,NDUM1 ,DUMMY(N3) ,N0UM2) _ __ 

* NDUM 1 (1 ) s NA(1 ) 

N W 1 2 = NW2tfN 

CALL TRANP(0Ummy(N3) ,NDUM1 , dummy ( N‘M 2 ) , NDUM t ) 

L a N3 ♦ N 
NW22 s NW 1 2 ♦ N 

CALL TRANP(DUMMY (L) ,NOUMl f DUMMY (NW22) .NOUMl ) . . __ 

T F { IOP(l) .EQ. 0 ) GO TO 800 
CALL PRNT(DUMMY(NHll),NA,4Hlflll ,1) 

CALL PRNT (DUMMY (N 1 .**2l ) , NA. 4HW21 ,1) 

CALL PRNT ( DUMMY ( NW 1 2 ) * N A , 4HW 1 2 ,1) A _ 76 


cnto; 

CNTO,' 

CNTO, 

cnto; 

CNTO, 

cnto; 

cnto; 

cnto; 

cnto; 

cnto; 

cnto, 

cnto, 

cnto; 

cnto; 

cnto; 

cnto; 

cnto; 

'cnto; 

CNTO' 

CNTO-' 

CNTO, 

CNTO-' 

cnto; 

cnto; 

CNTO, 

CNTO: 

cnto; 

CNTO, 

cnto; 

cnto; 

cnto; 

cnto; 

cnto- 

cnto; 


A- 7 6 


- 252 
253 

1 25 a 
.255 
256 

1 257 
258 . 
259 

1 260 
.261 
262 
263 

1 264 
265 
266 

1 . 267 . 
268 
269 
-27.0. 
1271 
1 272 
„. 2 . 7.3 
• 274 
275 
276 . 

I 277 

278 

1279 . 

280 

281 

282 

283 

284 

285 

286 

287 

1288 

1289 

290 

I 291 

292 
293 
294 
1295 
*296 
297 

1 298 

?99 
300 

1 301 
S02 
303 
30 U 

1 105 
106 
307 

1 308 
»09 
310 

I 

12 
i t 3 

314 


CALL, PRNT(OUMMY(N*22) ,NA,4HW?2 ,l) 

800 CONTINUE 

IF ( iop<3) .nc. o ) .co jrq ooo _ _ 

N2 8 N i ♦a *N 

CAl.L M ULT (P.NP, DUMMY (NW12) ,NA,S#MA) 

. .. C*LL mulT(R,NP,0Ummy(NHU ) ,NA,0UMMy(N2) ,NA) 

CALL SUBTf S, NA, DUMMY (NW22) ,NA,3,NA) 

CALL 3UBT (OUMMY (N*2l ) ,NA,0UMMY(N2) ,NA, DUMMY (N2) ,NA) 

. ..M3 ■ N2*N _ _ 

L » NA(l) ’ ” 

IF AC » 0 

N4 s N3*NA(1) _ 

C ALL GEL I M (L , L , OUMMY ( M2 ) 7l , S , OUMm y ( N3 ) , I F AC , OUMMY ( N4 ) , I ERR) 

I F ( lEfiR ,E0, 0 ) GO TO 850 

CALL LNC.NT(4) 

PRINT 825 

FORMAT (/✓ * IN CNTREG, GELIM HAS FOuNO THE MATRIX W21 - PtXHll 
1_.8E_3 I NGUL AR» / J_ 

return 


;n Tf 
:ntc 


825 


TO 


C 

850 


CONTINUE_ _ 

IF( TOP ( 1 ) .£0. 0 ) GO TO 1000 
CALL PRNT(3,NA,4M S ,1) 

NOUMJ (!) n NR(l) r> 

N0UM|(2) « N A ( 1 ) 

CALL LNCNT<3) 

. ..PRINT 875 _ 

875 FORMAT (// * MATRIX (R INVER3E)‘x( 8 
CALL PRNT(DUMMY, NOUMl, 0,3) 

GO TO 1000 


TRANSPOSE) •) 


900 


CONTINUE 
_ N2 *_ N 1 f 4*N 

CALL TRANP(0UMMY(NW12) .NA,0UMMY(N2)"»NA) ' 

CALL TRANP(OUMMY(NW22) ,NA,P,NP) 

N3 3 N2+N 

IFAC SO 
L * NA(1) 

Nfl INJ ♦ NA ( 1 ) 

CALL ‘GELIM(L,L#0Um'my('n2) ,L.P,0UMmy(N 3)^ IFACroUMMY(WrriERR) 

IF ( IERR .EG. 0 ) GO TO 950 
_ CALL LNCNT(4) 

PRINT 925 " "" " ~ ' 

925 FORMAT(//* IN CNTREG, GELIM H A3 FOUNO THE MATRIX W12 TO BE 3INGUL 
iARV) 

RETURN ' 

950 CONTINUE 

NOUMl(i) s NR ( 1 ) 

NOUMl (2) s M A ( 1 ) * 

CALL MULT (DUMMY, NOUMl ,P,NP,F,NF) 

_ IF ( IOP(l) .EO. 0 ) RETURN 

CALL PRNT(P,NP,4H P , i)~ - - - - - 

CALL PPNT(F,NF,4H F ,1) 

return _ 

1000 CONTINUE 

NMAX s TCl)/T(2) 

I s NMAX ' ‘ ‘ ' * '* 

CALL FOU A TE(LAMpo A, NA, DIJMM Y ( N2) ,MA) 

TT s -T(2) 

N4 s N3+N 

N5 = N4*N A ,, 


CNTC 
CNTi* 
CNT r 
CNTr 
CNTO 
CNTC 
CNTO 
CNTO 
CNT^ 
CNTO 
CNTO 
'CNTO 
CNTn 
CNTO 
'CNTO 
CNTO 
CNTO 
"CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO 
CNTO, 
CNTO 
CNTO, 
CNTO, 
CNTO, 
CNTO,’ 

cnto; 

CNTO; 

cnto; 

CNTO c 

cnto; 
cnto; 
cnto; 
cnto; 
cnto; 
cnto; 
cnto; 
cnto; 
cnto; 
cnto; 
cnto; 
'cnto; 
cnto? 
CNT03 
CNTO! 
CNTO! 
CNTO! 
'CNTO! 
CNTO! 
CNTO? 
CNTO! 
CNTO! 
CNTO! 
C NT O'? 
CNT03 
LNTO! 
CNTO? 
CNT03 


i 


A- 7 7 


* 315 N6 a N5*N 

316 N7 a N6+NACI ) 

1 317 KS3 a 0 

.318 _ _ NOUMKlJ s NR(1) 

319 NOUMl (2) s N 4 C 1 ) 

1 320 C *LL £XPSE9(0UMMV(N2) , NA, DUMMY (N3) , NA , TT , KSS , DUMMY (N4) ) 

321 CALL EOUATE(OUMMY(N3),NA,OUMMY(M2),NA) 

322 IF C I0P(1) ,E0. 0 ) CO TO 1075 

1 323 CALL LNCNT<3) 

_32« PRINT t050,T(2) 

325 1050 FOWMAT(//» EXPC-LAM80A X *,D16.8,*)*) 

326 CALL PRNT(OUMMY(N2),NA,0,3) 

1^321 1.075 .CONTINUE., __ _ 

J 328 IF C NM AX ,LE, 0 ) RE1UPN 

329 CALL EQUATEC3,NA,0UMMY(N3),NA) 

1 . 33.0 LLyO_.CONTINUE 

331 TIME a I *T (2 ) 

’■*** IF( I ,NE. NMAX ) CALL EQUATE ( DUMMY ( N51 ,N A ,P, NP ) 


332 
333 

1 334 
335 

_ 336 

1 537 
338 

. 339 

1 340 
341 

_34Z 

343 

1 “ 344 

-345 

346 

J 347 

.348 

349 

350 1150 

1.351 

* 352 
353 C 

■.354 1200 

1355 

356 

,357 


.C ALL .MULT (DUMMY (N3 ) ,NA,OUMMY(N2) ,NA, DUMMY (N«) ,NA) 

CALL M ULT (DUMMY (N2) « NA,0UMMY(N4 ), NA , DUMMY ( N3 ), N A ) 

CALL MULT (DUMMY (NWli) ,NA,OUMMY(N3) ,WA, DUMMY (N4),NA) 

-CALL. AOO (DUMMY (NWl 2) f NA,0UMMY(N4) ,NA, DUMMY (N4) ,NA) 

CALL TRANP(DUMMY(N4) ,NA,0UMMY(N5),NA) " * 

CALL EQUATE ( DUMMY (N5) ,NA , DUMMY (NU ) , N A ) 

CALL _MULT(DLIMMY(NW2l ) ,NA,OU^MY (N3) ,NA,DIJMMY(N5) ,NA) 

CALL A00(DUMMY(Nl«22),NA,DUMMY(N5),NA,0UMMY(N5),NA) 

CALL TRAMP (DUMMY (N5 ) ,NA,0UMMV(N6) ,NA) 

CALL EQUA’ E(DUMMY(N6) , NA, DUMMY (N5) ,_NA)_ _ 

L a N A ( 1 ) ‘ * 

IFAC a 0 

CALL GEL I M(L,L, DUMMY ( N4 ), L, ^UMmy ( N 5 ), DUMMY (N6) , IF AC, OUMMY (N7) , IERRCNT f 


CN1 
CN1 
CNT 
CN r 
CNT 
CM: 
CNT 
CNT 
CNT 
CNT 

CNT 

CNT 

CNT 

CNT 

CNT 

CNT 

CNT 

CNT 

CNT 

CNT 

CNT 

CNT 

CNT 

CNT 

CNT ( 

CNT ' 

CNTf 

CNT f 

CNT' 

CNTC 


1) 

IF ( IERR ,EC>. 0 ) GO TO 1200 

.CALL LNCNT ( 3 ) 

PRINT 1150, TIME 
FORMAT(//» IN cntreg 


10 matrix 

RETURN 


singularity 


AT TIME *,D16.8, 
IN GELIM*) 


* P CANNOT BE COMPUTED DUE T 


I 


I 359 

*359 
— 360_C 
[361 
1362 
363, 

1 364 
3o5 

366 . 

■? 67 

■368 

*369 . 

370 

|571 

-|572_ 

373 

$A 

376 
37 7 


CONTINUE 

CALL MAXEL(P,NP, ANORMl) 

CALL SUBT ( DUMMY (N5) ,NA,P,NP, DUMMY (N4) , N A ) 
CALL MAYEL (DU 'MY (N4) , NA, AN0RM2) 

IF ( ANORMl .NE. 0.0 ) GO TO 1225' 

GO TO 1300 


1225 


1250 


1300 


1350 


CONTINUE 

I F ( ANQRM J .GT. 1.0 ) GO TO 1250 
. IF_( AN 0 RM 2 /AN 0 RMI ,LT, PICTCV J KSSrl 
GO TO 1300 
CONTINUE 

IF( ANOPM 2 ,LT._RICTCV ) KSSsl 

CONTINUE 

CALL MULT (DUMMY, NOUM 1 ,P,NP,F,MF 1 
I F ( IOP ( 2 ) ,EQ. 0 ) GO TO '1400 
CALL LNCNT ( 5 ) 

PRINT 1350, TIME 
FORMAT!///* TIME s *,016.8/) 

CALL PRNT(P,NP,«H P , 1 ) 

I F ( I .ME. NMAX ) CALL PRNT(F,NF,4H F 


1 ) 


I 


iaoo continue 


cntc 

CNT r 

CNTC 

CNTO 

CNT 0 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO 

CNTO' 

CNTO' 

CNTO 

CNTO • 

CNTO' 

CNTO' 

CNTO' 

CNT03 


A-78 


IF C. H S3 ,EQ, 1 ) CO TO 1500 

I * I-t "" 

IF ( I ,GE. 0 ) GO TO 1100 

Gn TO H,00 _ ___ 

CONTINUE * *” 

CALL LNCNT(U) 

PRINT 1550 

FORMAT!//* STEADY-STATE SOLUTION HAS BEEN REACHED IN CNTREG*/) 


GO TO 1100 


1500 


1550 


.1600 .CONTINUE . _ 

IF ( I0P<2) ,NE. 0 ) RETURN 
IF( IOP(l) ,EQ. 0 ) RETURN 

CALL LNCMTC5) _ 

PRINT 1J50#TIme 

CALL PRNT(P,NP,4H P ,1) 

C*LL PRNI (F/NF,4M_F ,1 1 

RETURN 

END 


f 


I 

I 

T 


0 

1 

a 

3 

4 

5 

. 6 . 

7 

8 


9 

. 10 
I 11 

— __1 2L C 

13 
I 14 

J 15 _ 

16 


1 17 


JjLi. 


19 

C 

20 


_|jLL. 


• 22 


23 


1 24_ 

1 o.o 

1 25 

1 

26 

150 

-*-27. 

1 

j 28 


29 


30„ 


8 31 


* 32 


. 33_ 


• 34 

~ 130 

8 35 


_.36. 

185 

* 37 


1 38 


_..39 

40 


1 ai 




43 

1 95 

M 44 



200 

46 


. 67 


|_48. 


1 09 


50 

205 

1_51 . 

_ _ 

1 52 

C 

53 

210 

■ 54 


1 55 


9 56 


57_ 


1 58 

~ 220 

W 59 

C 

60 


S 61 

C 

1 *2 



SUBROUTINE RICNWT! A,NA,B,NB,H,NH,Q,NQ,R,MR,F,NF,P,NP,IOP,IOENT,DI 
1 SC ,FNULL, DUMMY) 

IMPLICIT REAL*8 <A-M,0-Z) 

DIMENSION A(l),B(n#Q(n#R(t)#FCl),P(l),OUMMYCn 
DIMENSION NA!2),NB!2),NQ!2),NR!2),NF!2),NP(2),IOP(3) 

DIMENSION H(t),NH(2),IOPT(2) 

LOGICAL IDENT, DISC, FNULL,SYM 

COMmon/TOL/EPSAM,£P38M,IACM 

COMMON/CONV/SUMCV,RICTCV,SFRCV,maxSUM 


lOPTUJaO 
SYM s .TRUE, 

I T NA(iT**2 

N1 a N ♦! 

I F I .NOT . _OIS C ) 

N2* N 1 *N 
N3s N2*N 
N<tJ»_N3>N 


_Nl_a_N A ( 1 ) » NR ( 1 )_♦_ 


IF ( IOP(i) .EO. 0 ) GO TO 210 


100 


IF C .NOT, OISOPRINT 
IF ( DISC ) PRINT 150 

FORMAT!//,* PROGRAM TO SOLVE CONTINUOUS STEAOY-STATE 
ION BY THE NEWTON ALGORITHM*, /) 

FORMAT!//,* PROGRAM TO SOLVE DISCRETE STEAOY-STATE R 
n_by_the NEWTON ALGORITHM*,/) _ 

CALL PRNT ( A , N A , 4H A , 1) 

CALL PRNT(B,NB,4H 0 ,1) 

CALL PRN T ( Q , NQ , 4H Q ,1) 

I F ( .NOT v IDENT ) GO TO 185 
CALL LNCNTC3) 

PRINT 1 BO 

FORMAT!/,* H IS AN IDENTITY MAtRIX*,/)" 

GO TO 200 
CONTINUE 

CALL PRNT ! H, NH , UH H ,1) 

CALL MULTIO, NO, H,NH, DUMMY, NH) 

CALL TRANP!H,MH,OUMMY!N2) ,NP) 

CALL MULT(0UMMY!N2) ,NP, DUMMY, NH,Q, NO) 

CALL LNCNT13) 

PRINT 195 

FORMAT!/,* MATRIX !H TRANSPOSE ) OH *,/) 

CALL PRNT!Q,NQ,4HHTQH, l ) 

continue _ 

CALL PRNT ! R , NR , 4H P ,1) 

IF! FNULL ) GO TO 210 
CALL LNCNT(3) 

PRINT 205 

FORMAT!/, * INITIAL F MATRIX',/) 

CALL PRNT!F,NF,4H F .,1) 

CONTINUE 

IF! CI0PC1 ) .ME, 0) .OR. IDENT) GO TO 220 
CALL MULT (Q,NQ,H,NH, DUMMY, NH) 

CALL TRANP!H,NH,DUMMY!N2) ,NP) 

CALL MULT(OUMMY!N2) ,NP, DUMMY, NH,Q, NO) 

CONTINUE 

IP IOISC) GO TO 900 


RICCATI 
ICCATI 


RICOO 
RICOO 
RICOO 
RICOO 
"RICOO 
RICOO 
RICOO 
RICOO 
RICOO 
RICOO 
RICOO 
RICOO 
RICOO 
RICOO 
RICOO 
RICOO 
‘ RICOO 
RICOO 
RICOO 
RICOC 
RICOO 
RICOC 
RIC 0C 
RICOO 
EQUATRICOO 
' RICOO 

EQUATIORICO r 
RICOO 
RICOO 
RICOO 
RICOO 
RICOO 
RICOO 
RICOO 
'RICO! 
RICO' 
RICO' 
" RICO' 
RICO 
RICO 

RICO 

RICO 

RICO 

RICO 

RICO 

RICO 

RICO 

RICO 

RICO 

RICO 

RICO 

RICC 

RICO 

RICO 

RICO 

RICO 

RICO 

RICC 

RICC 

RIC r 

RICC 

RICC 

RICC 


CALL TRANr»!0,N8,P#NP) 


A-80 


I 

I 

I 

I 


_63 

64 

65 
__66 

67 

66 
6<» _ 

70 

71 

.72 _C_ 

73 

74 

_75 

76 

77 
_ 78. 

79 C 

80 

__e i_.c. 


call EQUATED, nr, 0UM«y, NR) RIC 

CALL SYMPOSCNRU ) ,NR( l ) , DUMMY, NP ( 2 ) , P , I OPT , I OPT , 06 T , I3CALE» DUMMY (NRIC 
11),IERR) RIC 

.IF ( IERR .EQ. 0) 60 TO 250 __ • RIC 

"RIC 
RIC 


CALL LNCNTCJ) 

PRINT 225 

22 5 FORMAT ( / , ' IN RICNWT, A MATRIX WHICH 13 


1 FINITE HAS BEEN SUBMITTED TO 
RETURN 


3VMP0S*,/) 


250 CONTINUE 

CALL EOUATE(P,NP, DUMMY, NF) 

CALL MULTCB,N8,0UMMY,NF,0UMMY(Nn ,NA) 

CALL TRANP (DUMMY (Nl ) »NA , DUMMY (N2) ,NA) 

CALL ADD (DUMMY (N1 ) ,NA,DUMMY(N2) ,N A, DUMMY (Nl ) ,NA) 
. SCALE ( OUMMYJ Ny , N A e jDUMMYJ N 1 ) ,_N A , 0 , E ) 

IFCFNULL) GO TO 300 


82 CALL MULT(B,NB,F,NF,DUMMY(N2),NA) 

83 CALL SU8T(A,NA,DUMMY(N2),NA,DUMMY(N2),NA) 

.04 CALL TRANP (DUMMY (N2) , NA , DUMMY (N3)»NA)__ 

85 CALL E0UATE(DUMMY(N3),NA* DUMMY'(N2)‘,NA) 

86 CALL MULT(R,NR,F,NF,0UMMY(N3) ,NF) 


NOT SYMMETRICPOSITIVE OERIC 

" RIC 
RIC 
RIC 

RIC 

RIC 

RIC 

RIC 

RIC 
RIC( 
RIC' 
RIC' 
RIC r 
"RlCf 
RICf 
RICr 
’ R I c r 
RICC 


07 _ CALL TRANPJF,NF,P,NP) _ w RICC 

1 88 CALL MUL T ( P , NP , DUMMY ( N3 jf, NF , OUMMY ( N4 ) , N A ) " ' RICC 

89 CALL TRANP(DUMMY(N4),NA,0UMMY(N3),NA) RICO 

90_ _ CALL ADD(DUMMY(N4) ,NA,0UMMY(N3) ,NA,0UMMY(N3) ,NA) RICO 

# 91 CALL SCALE (DUMMY (N3) , N A , DUMMY ( N3 ) , NA ,0,5) ' RICO 

I 92 CALL ADD(DUMMY(N3) , N A , 0, NO, P , NP ) RICO 

93 CALL SCALE(P,NP,P,NP,-1.0) RICO 

94 GO TO 350 * ' - : RICO 

i 95 C RICO 

§_ _9 6 300 CONTINUE RICO 

97 CALL TRANP(A,NA, DUMMY ( N2 j , N A ) ' RICO 

, 98 CALL SCALE(Q,NQ,P,NP,-1.0) RICO 

I 99 C _ RICO 

100 350 CONTINUE ‘ ‘ “ " RICO 

101 IF(I0P(3) ,N6. 0) GO TO 400 RICO 

1 102 EPSAs EPSAM RICO 

103 CALL BARSTW( DUMMY (N2V,'NA,0,N0*,'P;nP, IOPT , S YM, EPS A,"EPS A7DUMMY (N3 ) ) RICO 

104 GO TO 450 RICO 

1105 C _ _ RICO 

|106 400 CONTINUE "" " ' " ' " ~ RICO 

107 I0PT(2)=1 RICO 


,108 



.CALL BILI.N (DUMMY (N2) ,N A, B,NB,P,NP,I0PT,SCLE,SYM,DUMM,'(N3)) 

Rico: 

1109 

C 



"RICO"! 

*110 


450 

continue 

Rico: 

.111 



CALL EQUATE(P,NP,DUMMY(N2) ,NP) 

RICO! 

|U2 



IF(I0P(2) .60, 0) GO TO 550 

RICO 1 

1: 13 



CALL LNCNT (3) 

RICO! 

114 



PRINT 500,1 

RICO! 

■‘,15 


500 

FORMAt {/ 1 * ITERATION »,i5,/) 

~ RICO! 

I 16 



CALL PRNT(P,NP,4r! P ,1) 

RIC01 

*117 

C. 



RICO 1 

JI8 


550 

CONTINUE "" 

RIC01 

I 19 



CALL MULT (DUMMY (Nl ) ,NA,P,NP, DUMMY (N3) ,NA) 

RICOt 

*20 



CALL MULT (P, NP, DUMMY (N 3) ,N A, DUMMY (N4) , N A ) 

RICO! 

121 



CALL TPANP(DUMMY(N4) ,NA,P,NA) ' 

RICO 1 

122 



CALL A0D(P,NP,DUMMY(N4) ,NA,P,NP) 

RICO! 

123 



CALL SCALE(P,NP,P,NP,0.5) 

RIC01 

124 



CALL ADD(Q,NG,P#NP,P,NP) 

RICO 1 

|25 



CALL SCALE(P,NP,P,NP, -1.0) g 

RTC01 


I 


126 

27 

28 
129 . 

i 30 

l 31 

132. 
1 33 

I 34 

*.35 . 
136 

1 37 
38_ 
139 
J 40 

|n_ 

1 42 
143 

1 44 
45 
146 

1 *47. 

48 

149 

150 

51 

*.52 

153 

1 54 
I 55 
156 

I 57 

58 

i59 

160 

! M 
I 62 

163 

64 

-1*5 
166 
67 

|.6S_ 

1 69 
170 
-|7JL. 

172 

173 

-i 7a - 

k 

f 79 
.130 
1*1 
182 

183 . 

X04 

I 85 

*86 

187 

{8 6 


CALL SURT<A,NA,DUMMY(N3)#NA,0UMMY(N4),NA> _ 

CALL TRANP(DUMMY(N4),NA,0UMMY(N3)#NA) 

IFCI0PC3) ,NE, 0 ) GO TO 650 _ 

CALL BARSTW(OUMMY (M3) , NA, 8,N8,P, NP, I0PT , SYM, EPS A , EPS A , OU^MY (N4) ) 
GO TO 675 

650 CONTINUE 

CALL RILIM (DUMMY (M3) , NA,d,NB,P,NP, I OPT , SCLE * SYM, DUMMY ( M4) ) 

"675 CONTINUE 
ItIH 

CALL MAYEL(OUMMY(N2)»NA f ANORMl) _ 

CALL SUBT(P,NP,DUMMY(M2) ,MA,OUMMY (M3) ,NA) 

CALL MAXEL(DUMMY(N3) »MA,ANORM2) 

_ _ IF( ANORMi_.GT, 1,0) GO_TO_700 

IF ( AN0BM2/ANQRM1 .LT. RICTCV ) GO TO 800 
GO TO 750 


_C_ 


700 


CONTINUE 

IF ( AN0RM2 ,LT. RICTCV ) GO TO 800 


_C_. 


750 


775 


C 

_ 900 


C . 
900 


RICOt 
R ICO l 
RICO 1 
RICO 1 
RICO! 
RICO 1 
RICO 1 
"RICOt 
R ICO 1 
RICO 1 
R ICO 1 
RICO 1 
RICOt 
R ICO 1 
RICOt 
RICO 1 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
'RICOt 
RICOt 
RICOt 
RICOt 


CONTINUE 

I F ( I ,LE, 101) GO TO 450 

CALL LNCNTC3) . „ 

PRINT 775 

FORMAT ( / , # THE SUBROUTINE RICNWT HAS EXCEEDED 100 ITERATIONS WlTHORICOt 

1UT CONVERGENCE.' * / ) . RICOt 

I0PC1) = 1 RICOt 

RICOt 

CONTINUE . .. . . RICOt 

CALL MtJLT(OUMMY,NF,P,NP,F,NF) “ " RICOt 

GO TO 1300 RICOt 

RICOt 

CONTINUE 

I F ( .NOT, FNULL ) GO TO 950 


f 64 

I 65 


925 
C 


CALL EnUATE(Q,NQ r P,NP) 

CALL EQUATE ( A, N A, DUMMY (Nl ) ,NA) 
CALL TRANP(A,NA r DUMMY(N2) ,NA) _ 
GO TO 1000 
CONTINUE 


_950. 


1 = 1 + 1 

CALL EQUATE(P,NP, DUMMY, NP) 
CONTINUE 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


MULT (R, NR, F,NF, DUMMY (N 1) ,NF) 

TR AMP ( F , NF , P , NP ) 

MULT (P,NP, DUMMY (Ml) , NF, DUMM Y (N2) ,NA) 

TRAMP (DUMMY (N2) , NA , DUMMY (N 1 ) , N A ) 

ADO (DUMMY (Nl ) , N A , DUMMY (N2 ) ,N A, DUMMY (Mi ) , N A ) 
SCALE (DUMMY (Nl ) ,NA,OUMMY('n , NA,0,5) 

ADD (Q, NO, DUMMY (Ml ) ,NA,P,NP) 

M ULT(8*NH,F,NF, DUMMY ( N l ) , N A ) 
SUBT(A,NA,DUMMY(N1) ,NA,0UMMY(N1) , N A ) 

TRANP (DUMMY (Nt ) , N A , DUMMY ( M2 ) , N A ) 


1000 


CONTINUE 

CALL SUM (DUMMY (M2) , N A , P , NP , OU m MY (N l) ,NA, IOPT , SYM , DUMMY (N3) ) 
IF(I0P(2) .EG, 0) GO TO 1100 
CALL LNCNT(3) 

PRINT 500,1 A _ 82 


R I CO 1 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
■RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
RICOt 
R I CO 1 
R ICO 1 
RICOt 
RICOt 


189 

1 190 
191 
.192 
193 
1 1 9a 
1195.. 
196 

1 197 
198.. 
199 

1 200 
2.01. 
202 
203 
1208. 
1205 
206 
, 202 . 
1208 
*209 
21.0. 
T 2 U 
1212 
.215. 
i?ta 
21S 
__2.1<>. 

I 217 

lit 8 

*219 

220 

1221 

|?22_ 

223 

,120 

.225 

*226 

227 

|220 

IJ29 

230 

m 

253 

I 35 


CALL PRNT(P,NP,«H P ,1) .. .. 

C 

1100 continue 

CALL MULT(P,NP,A,NA,OUMMY(Nn_,NA) 

CALL MULT(P,NR,8,N8,nUMMY(N2) ,N8) 

CALL TRANP(B,N8,0UMMY(N3) ,NF) 

CALL M ULT(DUMMY JN3) , NF,DUMMY(N1 ) ,NA,F,NF ) _ 

CALL MULT(0UMMY(N3),NP,0UMMV(N2),N8,0UMMV(NU,NR) 

CALL TRANP(OUMMY(Nl) ,NR,0UMMY(N2) ,NR) 

_CALL AOO(DUMMY (N1 ) ,NR,0UMMY(N2)»NR,0UMMY(N1),NR) _ 

CALL SC ALE (DUMMY (Nt ) ,NR, DUMMY (N1 ) ,NR, 0,5) 

CALL ADO(R,NR,OUMMYf Nt ) , NR , DUMMY ( N 1 ) , NR ) 

CALL SYMPOS ( NR ( 1 ), NR n.) , DUMMY (Nt) ,NA( 1) »F, IOPT , I OPT, OET, ISC ALE 

1MY ( N2) , I ERR ) 

IF( IERR ,E0, 0) GO TO 1150 

CALL LNCNT_(3) 

PRINT 225 
RETURN 


1150 


.1200 


CONTINUE 

IF( I ,EQ. 1) GO TO 925 

CALL MAXEL(OUMMY,NA, AN0RM1J 

CALL SU8T(P,NP, DUMMY, NA,DUMMY(N1) ,NA) 

CALL MAXEL (DUMMY (N1),NA,AN0RM2) 

IF ( ANORM 1 ,GT , _1 , ). G0_T0 1209... . 

IF ( AN0RM2/AN0RMI ,LT , RICTCV ) GO TO 1300 
GO TO 1250 

CONTINUE __ . ... 

I F ( AN0HM2 , LT« RICTCV ) GO TO 1300 


1250 CONTINUE 

IF ( I ,LE, !0l) 
CALL LNCNT13) 

PRINT 775 

TOP ( l ) = l 


GO TO 925 


1300 


1350 


CONTINUE .... 

IF(IOP(t) ,EQ, 0 ) RETURN 
CALL LNCNT(U) 

PRINT 1350,1 ... .... 

FORMAT (// , * FINAL VALUES OF P AND F AFTER*, 15,* ITERATIONS TO 

1ERGE*,/) 

CALL P9NT(P,NP,aH 
CALL PRNT(F,NF,«H 


P 

F 


, 1 ) 
, 1 ) 


return 

ENO 


RICO- 
RICO 
RICO 
RICO 
RICO 
RICO 
RICO 
RICO 
RICO 
RICO 
RICO* 
RICO- 

, OUMR I CO - 
RICO: 
RICO' 
RICO' 
“ RICOi 
RICOc 
R ICOc 
PICOi 
rico; 
rico; 

" rico; 
rico; 
rico; 
rico; 
rico; 
rico; 
rico; 
rico; 
rico; 

" RIC02 
RIC02 

rico; 

'rico; 

rico; 

rico; 

rico; 

rico; 

rico; 

"convrico; 

rico; 

rico; 

RIC02 

RIC02 

rico; 

RIC02 



I 


I 


I 


A-83 


(j.- 


0 _ SUBROUTINE ASMREGI A,NA,0, N0 ,H,NH, Q , NQ, R , NP , F , NF , P, NP, I OENT , 0 ISC , N »3M0 

I i 1EWT, STABLE, FNULL# ALPHA, IOP,OUMMY) ASMO 

2 implicit real*b (a-h,o»zj 


s_. 



DIMENSION A(l),B(l),H(l),O(t),PCt),F(l),P(n,0UPMV(l) 

ASMO 

I 4 



DIMENSION NA(2),N9(a),NH(2),N0(2),NR(2),NP(2),NP(2),I0P(5) 

, IOPT C 3) AS M 0 

I S 



t ,N0UM1 (2) ,N0UM2(2) ,N0UM3(2) 

ASMO 

.6. 



LOGICAL I PENT, 01 SC, NEW T, ST ABLE »FNULL, SING 

ASMO 

■ 7 



N ■ NA ( 1 ) *#2 

ASMO 

I 8 



N 1 a Nft 

ASMO 

L.9. 



_IOPTT30 _ 

ASMO 

10 



IF ( .NOT. NEWT ) GO TO 600 

ASMO 

I U 



I F C STABLE ) GO TO 500 

ASMO 

l.ia 



IF C FNIJLL ) GO TO 100 

ASMO 

13 



CALL MULT(8,NB,F,NF, DUMMY, NA) 

ASMO' 

■ 14 



CALL SUBT(A,NA,DUMMY,NA,OUMMY,NA) 

ASMO 

Il5_ 



CALL TESTSA(OUMMY,NA,ALPHA,OI3C,STA0LE,ICPTT,OUMMYCNt)) 

ASMQr 

16 



GO TO 200 

ASMOf 

• 17 


100 

CONTINUE 

ASMOr 

ia. 



_C.ALL _TESTSA(A,NA,ALPHA,DI.3CfS.TABLE,I0PTT, DUMMY) 

ASMO* 

■ ip 

C 



ASMO r 

20 


200 

CONTINUE 

ASM(K 

I 2L 




.JF( STABLE ) GO TO 500 _ 

ASMQO 

1 22 



IF C DISC ) GO TO 230 

ASMOC 

23 



J a -NA(1 ) 

asmoc 

.,24.. 



NAX s NA(J) 

ASMOt 

I 25 



DO 210 I si, NAX 

ASMOC 

1 26 



J s J ♦ NAX M 

ASMOC 

y -2 7 - 



A.( J) s A(J)-ALPHA 

ASMOC 

I 28 


210 

CONTINUE 

A8M0P 

I 29 



SCLE = 3. 

ASMOO 

. 30 



IOPT(l)sioP(l) 

ASMOO 

1 31 



IOPT C 2 ) s 1 

ASMOO 

I 32 



IOPT(3)=t 

ASMOO 

33 



CALL CSTAB(A,NA,B,N8,F,NF, IOPT,SCLE,OUMMY) 

ASMOO 

. 3a 



J s -NA(1) 

' “ASMOO 

35 



00 220 1st, NAX 

ASMOO 

• 36 



J s J + NAX ♦ 1 

ASMOO 

37' 



A ( J ) s A ( J ) ♦ ALPHA 

ASMOO 

« 33 


220 

CONTINUE 

ASMOO 

I 3P 


-225 

CONTINUE 

ASMOO 

40 



CALL MULT (B,NB7F,NF, 0‘JMMY, NA) 

... ASMQr 

a 41 



CALL SUBT(A,NA,OUMMY,NA,OUMMY,NA) 

ASMOO 

I 42_ 



CALL TES TS A (OUMMY,N A, ALPHA, OISC,ST ABLE, IOPTT, DUMMY (N1 ) ) 

ASMOO 

43 



GO TO 300 

ASMOO 

44 

c 



ASMOO 

i_45_ 


_230 

CONTINUE 

ASMOO 

946 



J s 2 * N A ( t ) + l 

‘ ASMflO 

47 



I F ( .NOT. FNIJLL ) J s J + N 

ASMOO 

|48 



SING s .FALSE. 

ASMOO 

144 



I F C OUMmv(J) ,EQ. 0.0 ) SING s .TRUE. 

ASMOO 

50 



IOPT(l) s IOP(t) 

ASmqo 

*51 



I OPT { 2 ) s 1 

ASMOO 

l 52 



DSCLE = 0.5 

ASMOO 

*53 



ALPHAT s t. /ALPHA 

ASMQO 

54 



CALL SCALE(A.NA, A, NA, ALPHAT) 

ASMQO 

|55 



CALL SCALE(B,NB,0,NP, ALPHAT) 

ASMOO 

*56 



CALL DSTAB(A,NA,B, NB,F,NF,SING, IOPT , DSCLE, DUMMY ) 

ASMQO 

57 



CALL SCALE(A,NA, A,NA, ALPHA) 

ASMOO 

#5 8 



CALL SCALECB, NR, B,NB, ALPHA) 

ASMOO 

(59 



GO TO 225 

ASMOO 

6 0 

c 



AS M 00 



300 CONTINUE 

I F ( STABLE) GO TO 400 


ASmqo 

ASMflO 


A-84 


63 


_ CALL LNCNT(S) 

ASMO' 

1 64 


IF( OISC ) GO TO 330 

ASMO 

1 95 


PRINT 3tO, ALPHA 

ASMO' 

__66 


.310. FORMATC//* IN ASMMEG, CSTA8 HAS FAILED TO FIND 

A STABILIZING GAIN A 9MQ ‘ 

67 


1 matrix (F) RELATIVE ro »,/,»'ALPHA • *,016.8/) 

' ’ “ ' ASMO 

I 68 


RETURN 

ASMO' 

" 69 


.330 CONTINUE 

ASMO' 

70 


PRINT 340, ALPHA 

“ ASMOf 

1 71 


340 FORMATC//* IN ASMREG, D3TAB HAS FAILED TO FINO 

A STABILIZING GAIN ASMO 

1 .72. 


LJfATRIX .(F) RELATIVE TO *.,/,* ALPHA a *,016,8/) 

ASMO f 

73 


RETURN 

~ ASMO ' 

t 74 

C 


ASMO c 

|.75_ 


.400 .continue 

ASMQC 

76 


FNULL a .P'ALSE. 

ASMOC 

77 

c 


ASMO r 

1—7®. 


-500 .CONTINUE _ 

ASMOC 

* 79 


CALL R!CNhT(A,NA,8,N8,H,NH,Q,NQ,R,NR,F,NF,P,NP, 

IOP, IOENT, DISC, FIVU" ASMOC 

80 


1LL#0UMMY) 

ASMOC 

1-01- 


G0_TD 75 0_ 

ASMOC 

1 ®2 

T 


ASMQC 

03 


600 CONTINUE 

ASMOC 

,-® 4 - 


IFC_.DISC_1.G0 TO 700 

ASMOC 

I 85 


MW a 4#N t 1 

'ASMOC 

1 86 


MLAM a NW ♦ 4*N 

ASMOC 


87. MOU* =_NLAM_f N __ 

| 88 IOPC3) a i " ~ 

« 89 CALL CNTREG(A,NA,8,N8,H,NH,Q,NQ,R,NR,0UMMY,0UMMY(NW) ,OUMMY(NLAM) 

90 IS ,F, NF, P,NP,J, IOP, IQENT, DUMMY (NDUM))_ 

. 91 GO TO 750 ' ' " " 

I 92 700 CONTINUE 

...93 _ . CALL. DISREG(A,NA,0,Nfl, H,NH,Q,NQ,R,NR,F,NF,P,NP, IOP, 1 0ENT_, DUMMY ) 

90 C 

I 95 750 CONTINUE 

.1.96 .C . _ _ 

97 IFC IOP C a ) ,EQ. 0 ) GO TO 1100 

i 98 C 

I 99. . N2= N 1 ♦ N 

100 N3a N2 ♦ N 

.101 C 

.1102 IFC. DISC ) GO TO 800 _ 

*103 CALL MtJLT(P,NP,8,NB,DUMMY,NB) 

104 CALL MULTCDUMMY,NB,F,NF,0UMMY(NI ) ,NP) 

1 1.05 CALL TRANP(OUMMY(Nt) ,NP, DUMMY, NP) 

1.06 CALL AOO(OUMMY, NP, DUMMY (Nl j ,NP,OUMMY,NP) 

107 CALL SCALECOUMMY,NP, DUMMY, NP, 0,5) 

i ’.oa. CALL. SU8TCQ, NO, DUMMY, NP,OUMMY,NP) 

.09 CALL MUL T (P,NP,A,NA, DUMMY ( N 1 ) , NP ) " ’ 

110 CALL ADD(DUMMY,NP,DUMMY(N1 ) ,NP, DUMMY, NP) 

til CALL TRANP(DUMMY(Nl) , NP_, DUMMY ( N2 ) ,NP) 

1.12 CALL A00CDUMmy,NP,DUMMY~(N2) ,NP, DUMMY, NP) 

*,13 GO TO 900 

litt.C . . ... .. 


I 15 
1 16 

117 

rw 

120 

■ 121 

*23 
124 
25 


i 


800 CONTINUE 

CALL MULT (R, MR, F,NF, DUMMY, NF) 

CALL TRANP(F,NF,OUMMY(Nl) ,N 8 ) 

CALL MULT (DUMMY (N 1 ) ,N 9 , DUMMY, NF,DU M MY(N 2 ),NA) 

CALL ADD (DUMMY (N 2 ) , NA , Q , NO , DUMMY , N A ) 

CALL muLT(B,N 8 ,F,NF,DUMMY(NI),NA) 

CALL SU 8 T (A,NA,DUMMY(N 1 ) , NA , DUMMY (Nt ) , N A ) 

CALL MULT (P, NP, 0 UMMY (N 1 ) , N A , DUMMY ( N 2 ) , N A ) 

CALL TRANP (DUMMY (N 1 ) , N A , DUMMy ( rj 3 ) ,NA) 

CALL MULT (DUMMY (N 3 ) , N A , DU M MY ( N 2 ) , N A , OU M MY (Nl) , N A ) 
CALL A 0 D(DUMMY,NA,DU m my(N 1 ) , N A , OUMMY , NA ) 


ASMOO 
ASMQC 
ASMOO 
ASMOO 
ASMOO 
ASMOO 
ASMOO 
ASMOO 
ASMOO 
ASMOO 
ASMOO 
ASMOO 
ASMOl 
ASM01 
ASMOl 
ASMOl 
AS M 0 1 
ASMOl 
ASMOl 
ASMO 1 
ASMOl 
ASMOl 
ASMOl 
ASMOl 
ASMOl 
ASMOl 
ASMOl 
ASMO 1 
ASMOl 
ASMOl 
ASMO 1 
ASMOl 

ASMOl 

ASMOl 

ASMOl 

ASMOl 

ASMOl 

ASMOl 

ASMOl 


A-85 


1 26 
■ 27 
128 


CALL SHBT(P,N«»,OUMMY,NA,OUMMY,NA_) 


50 

51 
,132_ 

*.54 

_L35_ 

1 .56 
157 
138. 

1 154 
140 
_14J. 


900 CONTINUE 

CALL_LNCNT(4) 

POINT 1000 

1000 F ORMAT(//» residual error IN 
. CALL. PPNTCDUMMY,NP,aHEROR, 1) 


RICCATI EQUATION '/) 


1100 


14? 

[143 

lUiL 


145 

1 146 
L47_ 
148 
149 

I 1.5.0L 

151 

152 

I l55_ 
154 
155 

1 156 
157 
158 
_159 

1 160 
161 
162 

1 163 

! 6 2 

165 

,166 

1167 

Jl68_ 

169 

1 1 70 

172 
,173 
1174 
*175 ' 
176 
.|177_ 
1170 
179 
• 180 . 
fiat 
182 
-183 . 
1184 
*185 
186 

J 1 8 7 
188 


CONTINUE 

_.N2.« NlfNAU) 

N5* N2*N A ( l ) 

ISV s 0 

CALL. EQUATE(P,NP f DUMMY, np) 

CALL EIGEN(NA(1 ) ,NA( 1) ,OUMMY,buMMY(Nt ) #DU M MY(N2) #ISV#ISV#V# 

13)# IERR) 

_NE.VL„« Nj|(.U 

IF( IERR .EQ, 0) GO TO 1500 ” ~ 

NEVL»NA( l J-IERR 

_C.ALL_LNCNT(«) 

1 200 # IERR 

* EIGENVALUE OF P MAS NOT HEEN 


ASM01 
A3M01 
ASM01 
ASMOt 
ASM01 
A3M01 
AS M 0 l 
ASM01 
ASM01 
A3M01 


A3M01 

A3M01 

ASMO! 

oummy'cnasmoi 

ASMO! 
A3M01 
A3M01 
ASMO 1 
ASMO! 


PRINT 

1200 FORMAT!//' IN ASMREG, THE * » 15# 
1PUTED AFTER 30_ ITERATIONS * / } 


1300 


CONTINUE 

NDUMl(t) s NEVL 

N0UM1 (2) s 1 

CALL EOUATECDUMMY(Nt)#NDUMl 
NDUMl(l) fl 


r> 


DUMMY # NOUM 1 ) 


_N 1 

CALL MIJL T ( 8 # N0 # F # NF # DUMMY ( N 1 )*# N A ) 

CALL SU8T CA,NA,DUMMY(Nt ) #NA#DUMMY (Nl) #NA) 
N2 s Nl+N 

CALL EQUATE (DUMMY (Nt) # NA# DUMMY (N2 )# NA ) 

N3»N2*N 

N4*N3*NA ( 1 ) 


N5»NU*NA ( 1 ) 

CALL EIGEN(NAU) #NA( 1)#DUMMY(N2)# DUMMY ( N 3 ) # 0UMMY (N4 ) , ISV# IS 
1MY (NS ) # IERR) 

NEVL s N A ( 1 ) 

I F ( IERR .EQ. 0 ) GO TO 1500 
. NEVLsNA(i)-IERR 

CALL LNCNT(4) " ~ ' " " 

PRINT 14Q0# IERR 

1400 FORMAT f // * IN ASMREG# THE *,15#' EIGENVALUE OF A-BF HAS NOT 
10MPUTED AFTER 30 ITERATIONS'/) 


1500 


CONTINUE 
N0UM2C1) s' 
NDUM2C2) s 
CALL 


NEVL 
1 

JUXTC(DUMMY(N3) #NDUM2, DUMMY (M4)#N0UM2 # DUMMY (N2) #N0UM3) 


1600 


1 700 


1800 


IF ( IOP ( 5 ) .EQ. 0 ) RETURN 

CALL LNCNTC4) 

PRINT 1600 

FORMATC//' eigenvalues OF P »/) 

CALL PRNT (DUMMY, NDUM1 , 4HEVLP, 1 ) 

CALL L N C N T ( 4 ) 

PRINT 1700 

FORMAT ( // ' CLOSED-LOOP RESPONSE MATRIX 
CALL PRNT(DUMMY(N1 ) ,NA,4HA-RF, 1) 

CALL L N C N T ( 3 ) 

PRINT 1800 

FORMAT!//' EIGENVALUES OF A-BF*) . 0 , 


A-BF '/) 


ASM01 
C0ASM01 
ASMO 1 
ASM01 
ASMO 1 

ASM01 

" ASMO 1 
ASM01 
ASM01 
ASM01 
ASM01 
ASM01 
ASM01 
ASM01 
ASMO 1 
ASM01 
V, V#0UMASMQ1 
ASMO! 
ASM01 
ASMO! 

___ ASMO 1 
ASM01 
ASMO ’ 
BEEN C ASMO 1 
ASMO 1 
ASMOl 
A3M01 
ASMO; 
ASMOl 
ASMO ! 
ASMO' 
ASMO ' 
ASMO ' 
ASMfl- 
ASMO ■ 
ASMO ‘ 
ASMO' 
ASMO . 
ASMO' 
ASMO' 
ASMO • 
ASMO ’ 
ASMO 1 
ASMO ’ 


EIGENVALUES OF A-BF*) 


A-86 


* 

19R _C«U. P»NT (' UMMY(N2) , NOUM3»0#3) ... __ *9MC 

1 190 C* " A 3 M 0 

1 9 1 RETURN *3Mfj 

1 92 . CNQ . A S*0 


I 


SUBROUTINE AJMFJl ( A, N A, G#NG,M,NM,Q, NO, R, NR, F,NF,P, NR, IOENT # 0I3C»N AS 
lEWT,STA0UE#FNULL»ALPHA f IOP, OUMMt) AS*- 

IMPLICIT PEAl*0 (A-M,0-Z) AS‘ 

o i m ens ion A(n,G(n f H(i),Q(i),pcn,F(n#pn)#ouMMY(n as*- 

OIMENSION N A ( 2 ) # NG ( 2 ) , NH 1 2 ) , NQ t 2 ) , NR t 2) # NF 1 2 ) # NP ( 2 ) # 1 OPT ( 5 ) » NOU M l (AS' 


12)#I0Ptl > 

_ LOGICAL IDENT, DISC #NE»T, ST ABLE #FNULL 
IF( IOP(l) ,EO. 0 ) GO TO 100 
CALL LNCNT<4) 

_IF(DISC) PRINT 15 _ 

IF C .NOT. DISC ) PRINT 25 
FORMATt//#' program to SOLVE 
1L FILTER PROBLEM*,/) 

FORMATt//,' PROGRAM TO SOLVE THE CONTINUOUS 
IMAL FILTER PROBLEM*,/) 

CALL PRNTfA,NA,4H A_ , l ) _ _ 

IF ( .NOT. IOENT ) GO TO“35 
CALL LNCNT (3 ) 

PRINT 30 __ 

5 IS AN IDENTITY MATRIX*,/) 


AS 

AS 1 ' 

"* ' AS* 

AS*' 

__ _ AS*- 

" "" * ' ' AS*' 

THE DISCRETE INFINITE •OURATION OPTIMAAS* 

AS* 1 

INFINITE-OURATION OPTUS* 

AS* 


19 

30 FORMATt/, 

20 

GO TO 40 

- 2 L_ 

_.35_..Co n TInU£ 

22 

CALL PRNT 

23 

40 CONTINUE 


I 


._24 

25 
2 6 

— 27 — 
28 

29 C 
50 _ 

31 

32 

33 

34 C 

35 

36 

37 C 

30 

39 ... 

uo 

41 

42 _ 

43 

44 

45 C 

46 

47 
4B 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 


1) 

IX 




45. 


_.55 

65 

100 


.XALL PRNT tH# NH, 4 h 

Call lncnt(3> 

PRINT 45 

.FORMATt/, 'INTENSITY HATRIX_FOR 
CALL PRNT (R»NR»4 h R #1) 

IF ( .NOT. IOENT ) GO TO 65 
CALL LNCNT (3) 

PRINT 55 

FORMATt/#' INTENSITY 


COVARIANCE OF measurement 


MATRIX FOR COVARIANCE OF PROCESS NOISE',/) 


1) 


a 


% 






200 


— 


V: 


A 


250 


I 

I 

K 


CONTINUE 

CALL PRNT(0,NQ,«H 

CONTINUE 
I0PT(l)sI0P(2) 

I0PT(2)3I0P(3) 

IOPT(3)=IOP(4) 

I0PT(<l) = I0P(5) 

IOPTC5JSO 
K s 0 

'continue 

CALL TRANP(A,NA,OUMMY,NA) 

CALL EOUATE(OUMMY,NA, A,NA) 

CALL TRANPtH, NH, DUMMY, N01JM1 ) 

CALL EOUATE(DUMMy,fgoUMi ,H,NH) 

I F ( IDENT ) GO TO 250 

CALL TPANPtG, NG# OUMMY , NOU M 1 ) ' 

CALL EQUATE(DUMMY,NDUmi ,G,NG) 

continue 

IF ( K .EO. 1 ) RETURN 
K s KM 

CALL ASMREGt A, h A, M, NH, G,NG,0, NO, R, NR #F,NF,P,NP, I DEN T , 0 I SC » NE*T , S T 
. A9LE#FNULL# ALPHA, I OPT .DUMMY) 


Nl=(NA(l ) **2)+3*NA(l )♦! 

CALL TRANP(F,NF,DUMMYfNl ) , NDUM 1 ) 


A-88 


__ _ ASM 

"AS* 

ASM 

ASM 

ASM 

ASM 

Asm 

AS*' 

ASM 

ASM' 

ASMr 

ASMi* 

NOISES/) AS“r 

ASMr 

ASM'* 

A SMC 
ASMO 
ASMC 
A SMC 
ASMO 
ASMC 
ASMC 
ASMO 
ASMO 
ASMC 
ASMO 
AS M C 
ASMO 
ASMO 
ASMO 
ASMO 
"ASMO 
ASMO' 
ASMO 
ASMO' 
ASMO' 
ASM© 
ASMO' 
ASMO ' 
ASMO' 
ASMO' 
ASMO ' 
ASMO' 
ASMO' 
ASMO' 
ASMQ ~ 
ASMO ' 
ASMO' 


63 

6a 

65 

66 . 

67 

68 
6« 

70 

7 1 
-_Z2 

73 

7« 

75. 

76 

77 

. 78 _ 

79 

80 

_Bl_ 

82 

83 

_8a. 

85 

86 

_87 . 
88 
89 

90_ 

91 

92 
. 93 

9a 
95 
9b_ 
97 
I 98 
9 99 
100 
101 
102. 


CALL E0UATE(0UMMY(Nl),NOUMl,F,NF) 

IK I0P(t) .EQ. 0 ) GO TO 200 

"IkIDENT) GO TO 300 
CALL LNCNT(3) 

. POINT 55 

CALL P9NT(0,NQ,aHG0GT, 1 ) 


.300 


325 


350 


375 


385 


GAIN*,/) 
F ,1) 


CONTINUE . _ 

CALL LNCNT ( 3 ) 

POINT 325 
FORMAT!/,* FILTER 
CALL PPN T (F , NF, aH 
CALL LNCNT C 3 ) 

.POINT 350 . _ . 

FORMAT!/, '8TEA0V-5TATE VARIANCE MATRIX OF 
CALL PPNT(P,NP,aM P ,1) 

NO'JMl(l)sNPCi) 

NOUMl (2)«1 

CALL LNCNT (3) 

P.PINT 375 _ . 

FORMAT!/, » EIGENVALUES OF P *,/) 

CALL PPNTIPUMMV, NOUMl, aMEVLP,l) 

Mi ■ NP! 1) ♦ l 

N * NA ! I ) **2 

N? a Nl ♦ N ♦ 2*NA!1) 

CALL TRAMP !0UMMV!N1),NA,0UMMV(N2) ,NA) 

CALL PRNT!0UMMY!N2),NA,«HA-FH, 1 ) 

N2 3 Nl ♦ N 
CALL LNCNT 1 3 ) 

PRINT 385 

FORMAT!/, * EIGENVALUES OF A«FH MATRIX*,/) 

NOUM 1(1) a N A ! 1 ) 

NOUM) (2) a 2 

CALL PRNT ! DUMMY !N2) , NOUM l ,0,3) 

GO TO 200 


i 


END 


A3M0 

A S'MO 

A8 M 0 

_ A3M0 

ASMO 
A3 M 0 
A3M0 
ASMO 1 
ASMO 
ASMO 
"’ASMO 
ASMO 
ASMO 

AS M 0 

ASMO 

ASMO 

RECONSTRUCTION' ERROR * , /) ASMO 

ASMO' 

ASMO' 

_ — ASMO' 

ASMO-' 

A 3M0 < 

ASMO' 
ASMO 1 ’ 
A 3M0 r 
‘ "" ASMO r 

ASMQ< 

__ __ A SMO r 

ASMO f 
AS M O r 

ASMQr 

" ASMor 

ASMOC 
ASMOC 
ASMO*" 
ASMor 
ASMO: 
A S M 0 i 
ASMO* 
ASMO i 


I 



1 -- ' 

I 


i 


1 


A-89 


_0 

I i 

.1 

I i 
10 

I I l 
12- 
13 

• ta 
1-15. 

B 16 

17 

I 19 
20 

!_ 21 _ 
I 22 

• 23 
. -24 

I 25 
1 26 


f 26 
—27 

I 2« 

8 29 

.30 ... 

> 51 
I 52 

* 33 _ 
34 

I 55 
1-36 
37 

, 39 C 
1-39 .. 
60 
41 

|_42_ 

* 63 
44 

|_45 .C 

I ab 

47 

,..4d ... 
I 49 
1 50 
51 
I 52 

* 53 
54 

I 55 

* 56 
57 _ 

1 5 * 

I 59 
s 60 

61 C 
1 62 


SUBROUTINE EXP^OE ( A, NA,0, N8, H , NH, AM, NAM, MM, NMM,Q, NO, 9, NR, F , NF ,P , EXPO' 
l NP, H I DEN T, HMOENT, OI3C,NE*T,3T ABLE. FNULL, ALPHA, IOP, DUMMY) CXPC' 

IMPLICIT R£AL*8 (A-M,0-Z) EXPO ' 

dimension A(n,B(i),M(j),AMci),HM(ii,on),H(i),F(n,P(n#ouHMV(i) expo 

DIMENSION NA(2) ,N9(2),NM(2),NAM(2) ,nmm<2),nQC2) ,NR(2) ,NF(2) ,NP(2) ,EXPO 
1 10P(1),I0PT(5),N0UM1(2),N0U**2(2),N0UM3(2) EXPO 

LOGICAL wioeNT,HMOewr,OI3C,NEHT,3TA8LE#FNULL#3YM EXPO' 

COMmon/TOL/EP3AM,CP30m, iacn EXPO' 

IP( I0P(1) ,E0. 0 ) GO TO 300 EXPO' 

CALL LNCNT (6 ) __ EXPO 

IF ( 0I3C ) PRINT 25 ~ EXPO 

IF ( .NOT, DISC ) PRINT SO EXPO' 

25 FORMAT!/, » PROGRAM TO SOLVE ASYMPTOTIC DISCRETE EXPLICIT MOOEL-FOLEXPO' 
1L0HING PROBLEM',//#* PLANT DYNAMICS',/) EXPO' 

50 FORMAT!/, * PROGRAM TO SOLVE ASYMPTOTIC CONTINUOUS EXPLICIT MOOEL-FEXPO 

1 ALLOWING PROBLEM' #//#_!_ PLANT OYNAMICS',/) EXPO' 

CALL PRNT ( A , N A , 4H A ,1) * ~ ' ~ *" - ~"EXPO' 

CALL PRNT ( B, NB# 4M 8 ,1) EXPO' 

— ...IFC.^IDENT GO TO J.3 ... _ EXPO' 

CALL PRNT (H,NH, 4H H ,1) EXPO' 

GO TO 100 EXPO' 

. _75. CONTINUE _ EXPO' 

CALL LNCNTO) " " EXPO' 

PRINT 95 EXPO' 

95 FOR M AT(/, # H 13 AN IOENTITY **TRIX»,/) __ EXPO' 

' "EXPO' 

100 CONTINUE EXPOf 

CALL .LNCNJ !4 ) _ EXPO' 

PRINT 125 EXPO' 

125 FORMAT!//, • MODEL 0YNAMIC3 ' , / ) EXPO' 

. . CALL PRNT! AM,NAM,4H AM ,1) _ EXPO' 

IF! HMOENT ) GO TO 175 “■*' * EXPO' 

CALL PRNT { HM , NHM , AH HM ,1) EXPO' 

GO TO 200 ... _ EXPO' 

1 75 CONTINUE EXPO' 

CALL LNCNT<3) EXPO' 

PRINT 185 . EXPO' 

185 FORMAT!/,' HM IS AN IOENTITY MATRIX »,/) EXPO' 

EXPO' 

200 CONTINUE _ EXPO' 

CALL LNCNT(fl) -- - - pxp0i 

PRINT 225 EXPO' 

. 225.F0RMAT!//, ' WEIGHTING MATRICES ',/) EXPO' 

CALL PPNT ! Q , NO , 4H 0 ,\) ~ EXPO' 

CALL PRNT ! R , NR , 4H R ,1) EXPO' 

_ _ _ _ EXPO' 

.00 CONTINUE " ‘ ' ' • * EXPO' 

IF! IOP ! 2 ) ,EQ. 0 ) GO TO 400 EXPO' 

N F ! 1 ) s N B ! 2 ) EXPO 

NF ( 2 ) s NA!1 ) ' " EXPO 

NP Cl) s N A ! 1 ) EXPO 

NP!2) = N A ( 1 ) EXPO 

I OPT ! 1 ) = IDP(3) “ EXPO 

IOPT (2) = I0P(4) EXPO 

X 0 P T ! 3 ) s IUP(S) EXPO 

TOPT!a) =0 “ EXPO 

I OP T (5 ) = 0 EXPO- 

N 1 a NA(l)*NA!2) ♦ 1 EXPO 

CALL EnUATE!Q,NQ,OUMMY,MQ) * "* EXPO' 


300 CONTINUE EXPO 

IF! IOP ! 2 ) ,EQ. 0 ) GO TO 400 EXPO 

N F ! 1 ) s N B ! 2 ) EXPO 

NF ( 2 ) s N A ! 1 ) ' " EXPO 

NP! 1) s N A ! 1 ) EXPO 

NP ! 2 ) = N A ( 1 ) EXPO 

I OPT ! 1 ) = IOP ( 3 ) “ EXPO 

IOPT (2) = IOP ! 4 ) EXPO 

X 0 P T ! 3 ) s 1 0 P ( 5 ) EXPO 

IOPTia) 30 “ EXPO 

I OP T (5 ) 3 0 EXPO 

N 1 3 NA(l)*NA!2) ♦ 1 EXPO 

CALL EOUATE!Q,N0,0Ummy # m0) * EXPO 

CALL ASMREG(A # NA,9,NB,H f NH,OUMMY,NQ,R,MR,F,NF,P,NP,HIDENT,OISC,NE EXPO 
iwt,sta«le,fnull» ALPHA, IOPT, DUMMY !N1 ) ) EXPO 

Expo 

400 CONTINUE A-90- ^XPO 


IF( IQP(t) .60 , 0 ) GO TO 600 
CALL LNCNTU) 

PRINT 425 

425 FORMA T(//,» CONTROL L A 4 U J_»F( COL.(X#XM) ), F * ( F 1 1 , F 1 2 ) * , / ) 
CALL LNCNTm 
PRINT 450 

«50 formati/,* part of f multiplying X »,/) 

CALL PRNT(F,NF,4H Fit#!) 

IF ( .NOT, OISC , AND , I0P(2) ,60, 0 ) GO TO 600 

CALL PPNT<P,NP,«H PU#1>_ _ _ _ 

I F ( IOP ( 2 ) ,60, 0 ) GO TO 600 
CALL LNCNT (2 ) 

PRINT 475 

475 FORMATC/,* EIGENVALUES OF Pit*) 

NOUMt (I) ■ N A ( t ) 

N0UMK2L-* 1 ..... __ 

CALL PRNT(OUMMV(Nn,N0UMl,0,3) 

NI • Nt ♦ NOUMl(l) 

NOU M 1 (23 * N A ( l ) _ _ 

CALL LNCNT (2 ) 

PRINT 500 

500 |fO»MAT(/,* PLANT CLOSED-LOOP RESPONSE MATRIX A - BFlt*)_ 

CALL PRNT(DUMMY(~Nt),NDUMl,0',3) 

CALL LNCNT (2 ) ^ 

PRINT 525 ’’ _ 

525 FORMAT ( / , * EIGENVALUES OF CLOSED-LOOP RESPONSE MATRIX*) 

Nt 3 Nt ♦ NDUM1 ( t ) oNDUMl (2) 

NDUMK2) « 2 _ 

CALL PRNT(0UMMY(N1 ),NDUMt,0,3) 

600 CONTINUE 

NF(1)= N0(2) 

NF(2)s N A ( t ) 

CALL MULT<8,N8,F,NF,0UMMY,NA) _ 

"~CALL SUBTC A,NA,DUMMY,NA,OUMMY,NA) 

IF ( lOPtn.EQ, 0 .OR, I OP C 2 ) ,NE, 0 ) GO TO 700 
CALL LNCNT ( 2 ) 

PRINT 500 

CALL PRNT(OUMMy,nA,0, 3) 


700 CONTINUE 

Nt 8 N A ( t ) * *2 ♦ I 

CALL TRANP(0U m MY,NA,0UMMYCN1 ) ,NA) 

CALL EOUATE(OUMMY(Nl ), N4 , DUMMY , NA ) 

NF(2) 3 N A ( 1 ) ♦ NAM(l) 

NP(2) 3 NF (2 ) __ _ 

I F ( .NOT, DISC .AND. I OP ("2 ) ,EQ . 0 ) NP(2) s NAM ( 2 ) 

IOPTTsO 

SYM s .FALSE. 

CALL EQUATEt Q , NO , DUMMY ( N t) , NDUM2 ) 

IF ( HMOENT ) GO TO 725 

CALL MULT(Q,NG,HM,NHM,DUMMY(N1 ) ,NDUM2) 

725 CONTINUE 

I F ( H I DENT ) GO TO 750 
M 2 3 Nt ♦ NO ( 1 )*NHM(?) 

CALL TRANP(H,NH,DUMMY(N2) ,NCUM1 ) 

N3 3 N2 ♦ NH(1 ) * N M ( 2 ) 

CALL MULT ( DUMMY (N2) , MDUM 1 , DUMMY (Nt ) , NHM , OUMMy ( N3 ) , NDUM2) 
CALL EO'JATECOUMmy (M3) ,N0UM2, Dummy fNt) #NDUM2) 

750 CONTINUE 

N2 = NA(1)»*2 ♦ NA(t)*NHM(2) f 1 
M3 = NA( 1 ) **2 ♦ 1 

I F ( .NOT. OISC .ANO, I QP ( 2 ) , EQ , 0 ) N3 * 1 

A- 91 


126 


call EQUATE ( dummy (N t ) ,N0UM2,P(N1) #N0UM2) 

EXPO 

I 

127 


IFf DISC ) GO TO 800 

" EXPO 

1 

128 


£P 3 A s EPS AM 

EXPO 


129 


CALL 0ARSTW (DUMMY # NA, AM, NAM, P(N3) ,N0UM2, IOPTT,SYM 

,EPSA,EPSA,DUMmyEXPO 

1 

130 


i(N2j) 

EXPO 

1 

131 


GO TO 900 

EXPO 

-1 32 

-C . 


EXPO 


153 

800 

CONTINUE 

EXPO 

I 

1 3a 


CALL SCALE(P(N3)#N0UM2,P(N3),NDUM2 # -i .0) 

EXPO 

■ 

.135. 


N4 s N2 +NAM( t 1**2 

EXPO 

136 


CALL EQUATE! AM, N AM, 'DUMMY (N2) , NAM) " 

.. Exp(j 

1 

137 


CALL SUM (DUMMY # NA , P (N3 ) #NOUM2,OUMMY(N2) , NAM, IOPTT, 

SYM, DUMMY (N4) ) EXPO 

1 

138 

C 


EXPO 

139 

900 

CONTINUE 

EXPO 

1 

140 


N2 » N0 ( 2 ) *NA ( 1 ) ♦ 1 

EXPO 

I 

.L4l_ 


..CALL TRANP(B,NB,0UMMY,N0UM!) 

EXPO 

II 

142 


CALL MULT(DUMMY,NOUMt,P(N3r#NOUM2,F'(N2) #NDUM3) 

.... ExpQ 


143 


IF( .NOT. DISC ) GO TO 1000 

EXPO 

I 

144,. 

HI-? N0(1)*NB(2) ♦ 1_ 

EXPO 

I 

1 45 


CALL MULT(OUMMY,NOUMt ,P,NA,OUMMY (Nl) ,N0UM2) 

EXPO 

ia6 


CALL MULT (DUMMY (N1),N0UM2, 8 »N0, DUMMY, NR) 

Expo 

1 

147_ 


..CALL ADD (R, NR, DUMMY, NR, DUMMY, NR) 

EXPO 

* 

148 


GO TO 1100 

’ EXPO 

l 49 

C 

CONTINUE ** 

EXPO' 


,150. 

..JO 00 

EXPO' 

I 

[151 


CALL EQUATE(R,NR,OUMMY,NR) 

expo: 

m 

152 

c 


expo: 



_153 

.. 1 1 00 

. CONJJNUE 

EXPO! 


■ 155 

156 

157 

158 

159 

160 
161 
162 
163 i 
16 a 
165_. 
166 

167 

1 68 _ 

169 

170 

1 7 1 

172 

173 
17a . 

175 

176 

177 

178 


CALL SVMPOSCMRtl ) ,NR( 1 ) , DUMMY , NHM ( 2 ) , F ( N2 ) , I0PTT, 
lLE,OUMMV(Nl),IEPR) 

IF( IEPR .EQ. 0 ) GO TO 1200 
CALL LNCNTC3) 

PRINT 1150 

1150 FORMAT (/, • IN EX’MOF, THE COEFFICIENT MATRIX FOR SYMPOS 


13 NOT SY 


1MMETRIC 

retupn 


POSITIVE DEFINITE 


/) 


1200 


1300 


1325 


CONTINUE 

IF_(. ,NOT. DISC ) GO TO 1300 
CALL MULT (F (N2) ,NDUM3, AM, NAM, DUMMY, NDUM1 ) 
CALL EQUATE (DUMMY , NDIJW1 # F (N2) ,N0UM1 ) 
CONTINUE __ 

IF ( IOPtn .EQ. 0 ) return” 

CALL LNCNTC3) 

PRINT 1325 


MAlJIY 


FORMAT!/, # PART OF F MULTIPLYING 
CALL PRNT(F(N2),NOUM3, 4H Fl2,l) 
NOUM 1(1) s N A ( 1 ) 

NDUMJ ( 2 ) = NAM(l) 

CALL PRNT ( P ( N 3 ) , NIJUM l , 4H Pl2,i) 

RETURN 

END 


XM 


/) 


IOPTT,OETERM, ISCAEXPO 

EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 
EXPO 




0 


SUBROUTINE ImPMDF(A,NA,0,N0,H,NH, AM, NAM , BM , N0M, Q , NQ , R , NR, F , 

NF,P,N 

IMPO 

1 

1 


IP, I0FNT, 01 SC, NEW TESTABLE# FNULL# ALPHA, IOP,0U m my) 


IMPO 

1 

2 


IMPLICIT REAL** (A-H,0-Z) 


IMPO 

. 3 


.dimension A(t),0(n,H(t),AM(i)#BM(n,o(i),pcn,F(t),p(n,ouHMY(i) 

IMPO 

1 

a 


DIMENSION NA(2),NB(?),NH(2),NAM(2), N0M( £ ),NQ(2),NP(2),NF(2) 

, NP ( 2 ) 

, IMpn 


5 


1I0P(1),I0PT(5),M0UM1 (2) 


IMPO 

1 

6 _ 


LOGICAL IDENT,DISC,NEWT,8TA8LE»FNULL,HIDENT 


IMPO 

7 


IPC IOP(l) .60, 0 ) GO TO 200 


IMPO 


8 


CALL LNCNT(6) 


IMPO 

1 

L 9 . 


IP( OTSC ) PRINT 25 


IMPO 

10 


IF( .NOT. 0 1 SC ) PRINT 50 


IMPO 

1 

i i 

25 

FORMAT!/, 'PROGRAM TO SOLVE ASYMPTOTIC DISCRETE IMPLICIT MQQEL-FOLLIMPO 


. 12 . 


1 OWING PROBLEM*,//,* PL ANT OYNAMICS *,/) 


IMPO 

13 

50 

FORMAT!/,* PROGRAM TO SOLVE ASYMPTOTIC CONTINUOUS IMPLICIT 

MODEL- 

FIMPC 

1 

14 


tOLLOwING PROBLEM*,//,* PLANT OYNAMICS*,/) 


IMPO 


_ .13 


CALL PRNT ! A , NA, 4H A ,1) 


IMPO 

1 

1 16 


CALL PRNT!8,N0,4H B ,1) 


'IMPO 

17 


IF! IDE NT ) GO TO 75 


IMPO' 

| 

_ie 


CALL PRNT ( H, NH , 4H H ,1) 


IMPO? 

1 

19 


GO TO 100 


‘ IMPO* 

20 

75 

CONTINUE 


IMRO 

1 

_21 


CALL LNCNT ! 3 ) 


IMPO' 


22 


PRINT 55 


" I MRO i 

1 

23 

85 

FORMAT!/,* H IS AN IOENTITY MATRIX*, /) 


I MP 0 f 

J 

_24 . C 




IMPOf 


25 

100 

CONTINUE 


IMPO' 

1 

26 


CALL LNCNT(U) 


IMPOf 

. — 27 .... 


PRINT 125 


I MP 0 1 


28 

125 

FORMAT!//, * MODEL DYNAMICS*,'/) 


IMPO' 


29 


CALL PRNT t AM, NAM, 4H AM ,1) 


RMPO ! 

.. 30 . 


CALL PRNT!BM,N8M,4W 9M ,1) 


IMPO' 


l 51 


CALL LNCNT !4) 


IMPO' 


32 


PRINT 150 


IMPOf 


1 33 .. 

150 

FORMAT!//, * WEIGHTING MATRICES*,/) 


IMPO 

3a 


CALL PRNT!Q,NQ,4h 0 ,1) 


IMPOf 


35 


CALL PRNT!R,NR,4H R ,1) 


IMPOf 


36 C 




IMPOf 

37 

200 

CONTINUE 


IMPOf 


38 


N s NAfi )**2 


IMPO 


_39 _ 


N 1 s N ♦ 1 


IMPO' 


40 


IF! .NOT. IDENT ) GO TO 300 


IMPO 


41 


CALL SUBT(A,NA, AM , NAM, DUMMY , N A ) 


IMPO 


. 42_ 


CALL SUflT (B,Nfl,8M, N0M, DUMMY ! N 1 ) , N8 ) 


IMPO r 


! 43 


GO TO 4Q0 


IMPO' 

au c 




IMPO' 


_45 

..300 

CONTINUE 


IMPOf 


46 


CALL MULT!H,NH,A,m'a,OUMMY,NH> 


I MR 0 f 

47 


CALL MULT ! AM, NAM, H,NH, DUMMY !N1 J , NH) 


IMPOf 

| 

, 48 _ 


CALL SUBT! DUMMY, NH,0U W MY!N1 ) , NH, DUMMY , NH ) 


IMPO' 

j 

1 49 


CALL MULT!H,NH,8,N8,OUMMY!Nt),NBM) 


IMPO' 


1 50 


CALL SUBT (DUMMY (N1 ) , N8M, 0M, N8M, DUMMY ! N 1 ) ,N0M) 


IMPO' 

. 51._C 





IMPO. 


1 52 

400 

CONTINUE ' 


IMPO 


1 53 


IF! inP(l) .EG. 0 ) GO TO 500 


IMPO' 

54 


CALL LNCNT ! 3 ) 


IMPO , 

I 

1 55 


PRINT 450 


IMPO- 

I 

1 56 

450 

FORMAT!//,* MATRIX HA . AMH*) 


IMPO' 


57 


CALL PRNT (DUMMY, NH,0, 3) 


I MP 0 i 


■ 58 


CALL LNCNT (3) 


Imp or 

: 

1 5Q 


PRINT 475 


IMPO' 


i h o 

475 

FORMAT!//,* MATRIX H8 - 9M») 


IMPO - 

61 


CALL PPNT!0UMMY!N1) ,N8M,0, 3) 


IMPO ' 


1 62 C 


A-93 


IMPOC 


63__ 500 CONTINUE I^F 

64 NJ 3 N| ♦ N IMF 

65 N3 s N2 ♦ N IMF 

. 66 N4 a N3 ♦ N IMP 

67 CALL M ULT(Q, NO, DUMMY, NH,0UMMY(N2),NH) IMP 

00 CALL MULT(U,NQ,DUMMY(N1),NBM,DUMMYCN3),NBM) IMP 

- 69. CALL TRANPIOUMMY, NH, DUMMY (N4) , NDUM1 ) IMP 

70 CALL muLT(0Ummy(N 4),NDUM1,0UMMV(N2),MH, DUMMY, NA) I«p 

71 CALL MULT(DUMMYCN4),NOUM1,OUMMY(N3J,N0M,DUMMY(N2),N8) IMP 

.72 ..CALL TPANP(mjMMY(iYt J ,NBM, DUMMY (N«J ,NDUMl J _ IMP 

73 CALL SCALE(DUMmy(N2) ,N8,DUMMY(N1 J ,N8,2.0) " IMP 

7« CALL MtJL T (DUMMY(N«) ,NDUM1 , DUMMY (N3) ,N0M,OUMMY(I\»2) ,N«) IMP 

15 CALL ADD(DUMMY(N2) , NR , R , NR , DUMMY C N2 ) ,NR) IMP 

76 I F C IOP(l) ,E0, 0 J GO TO 600 IMP 

77 CALL LNCNT ( 3 ) IMP 

73 ERINT 525 Imp 

79 525 POR M AT ( // , * MATRIX (HA - AMH TRAN3P0SE)Q( HA • "AMH)’) ' IMP 

00 CALL PRNT(DUMMY,NA,0,3) IMP 

_8.1 C.ALL LNCNT(3)_ _ IMP 

02 PRINT 550 IMP 

83 550 FORMAT!//,' MATRIX 2C HA • AMH TRANSPOSE)Q( H8 - BM)») IMP 

_JS4 . CALL PRNT ( DUMMY (N 1 ) ,N0,O, 3) _ IMP 

85 CALL LNCNT ( 3 ) " ~ Imp 

86 PRINT 575 ivp. 


._ 87. 

08 

89 C 
_ 90 _ 

91 

92 

_93 . 

94 

95 
— 96 

97 

98 

99 
100 
101 

.102 

103 

104 

105 

106 

107 

108 

109 

110 

111 C 

112 

113 

114 C 

115 

116 C 

117 
1 1 8 

119 

120 
121 

1 122 
123 
124 

*25 


575 FORMAT (,//,' MATRIX ( H0 - B«* TRANSPOSED H8 • 0M ) ♦ R') 

CALL PRNT(OUMMY(N2) ,NR,0, 3} 

600 CONTINUE 

I OPT ( 1 ) a 0 " ~ ~ ~ ~ 

I OPT ( 2 ) * 1 
... IOPT ( 3 ) s 1 

NS a N4 f N ” ~ ' 

CALL EQUATECA,NA,DUMMY(N3)#NA) 

. . CALL PREFIL (DUMMY ( N3 ), N A , B , NR , DUMMY , n a , DUMMY (N1 ), NB , DUMMY (N2) 
1UMMY(N4) ,NF, I0PT,0UMMY(N51) ' 

IF(I0P(t) .EQ. 0 ) GO TO 700 
CALL LNCNT (3) 

PRINT 625 

625 FORMAT!//,' PREFILTER GAIN') 

CALL PPNT (DUMMY (N_4) ,NF,0, 3}_ 

CALL LNCNT (3) ' " ~ 

PRINT 650 

650 FORMAT!//, ' MATRIX A - 8 ( PREF I L TER ) » ) 

CALL PRNT (DUMMY (N3) , NA , 0, 3) 

CALL LNCNT ( 3 ) 

PRINT 675 

675 FORMAT!//,' MODIF IED' STATE VECTOR WEIGHTING MATRIX')' 

CALL PRNT(DUMMY,NA,o, 3) 

700 CONTINUE 

CALL EQUATE (DUMMY ( N4 ) , NF , DUMMY (N 1 ) , NF ) 

I F ( I OP ( 2 ) .EQ. -1 000' ) RETURN 


* 


IOPT(n s I OP ( 2 ) 

I OP T ( 2 ) = I UP ( 3 ) 

I OP T ( 3 ) = 1 0 P ( it ) 

IOPTC4) = 0 

IOPT(5) =0 - 

HIDENT = .TPUE. 

CALL ASMRFG ( DUMMY f N 3 ) »NA,8 ,NR,H,NH,DUMMY,NA,DU m MY(N2) ,NR,F,NF ( 
IP, WIDE NT, DISC, NE^T, STABLE, F NULL# ALPHA, IQPT,DUMMY (NU) ) 

I F ( I0P(1) .EQ. 0 ) GO TO BOO g4 


I MP t 
IMPr 
IMP r 
IMPr 
IMP:* 

I mp r 

IMP f 
I MP f 
IMPr 
, NR , D I MP r 
IMpr 
IMPO 
I MP C 

IMpr 

IMPO 
IMpn 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
! MP 0 
"IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO ' 
IMPO' 
IMPO 1 
IMPO 1 
IMPO! 
IMPO • 


P , N 


A -94 


I 126 

I *27 

129 
I l2Q 

I 1 30 

1 131 
132 

I 153 

I 13a 
135 ..... 

. 136 
137 
130. 
139 

| iao c 
Liat 

142 
I 143 
I 144 

las 

. 146 

147 

1 140 
149 

150. 

151 

152 
153. 

154 

155 

156 

157 C 

158 

159 


CALL LNCNTI3) 

PRINT 725 

725 FORMAT!//,* GAIN FRO** ASMREG * ) 

CALL PRNT!F,NF,0#3) 

CALL LNCNTI3) 

PRINT 750 

750 FORMAT!//, * SOLUTION OF ASSOCIATED 5TE AOY*ST ATE RICCATI 
CALL PRNT (P,NP,0, 3) 

CALL LNCNT ! 3 1 
PRINT 775 

775 FORMAT!//, * E I GENV ALUES~OF P*) 

NOUM1! l)» N A ! 1 ) 

.. NOUMt (2 1 s 1 

CALL PRNT!OUMMY!iM4),N0UMl,0,3) 


025 


(ASMREGLi#_/)_ 

, 1 ) 


0flO_CQNTJNUE 

CALL AOO!F,NF,OUMMY!Nl ) ,NF,F,NF) 

IF! lOPUJ ,EQ, o ) RETURN 

_ CALL_LNCNT!4) 

PRINT 025 

FORMAT!//, • GAIN FOR MODEL-FOLLOWING 
LCPP5FILTER) * 

CALL PRNT ! F , NF , 4H 
N6 s N4 ♦ NA!1) ^ 

CALL PRNT ! OUMMY (N6),NA, 4H A»0F , 1 ) 
N0UMU2) s 2 
N6 ■ N6 ♦ N 

CALL LNCNT (3) 

PRINT 850 

FORMAT!//, * EIGENVALUES OF A-BF*) 
CALL PRNT!OUMMY!N6),NOUM1,0,3) 

RETURN 
ENO 


CONTROL LAW, U * • F X 


050 


IMRO 
I MP 0 
IMPO 
IMPO 
" " IMPO 

IMPO 

EQUATION'HMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
* ' “IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
F sIMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 
IMPO 


I 







I 

I 

S 


A-95 


. .0 


SUBROUTINE RE AO l ( A , N A , NZ , N AM ) 

REA 

l 


IMPLICIT REAL*8 (A-H,0-Z) 

REA 

2 


DIMENSION A(t),NA(2),NZC2) 

REA 

_ 3 


IF (MZ(l).EQ.O) GO TO UlO 

REA 

a 


NR*NZ(t) ’ 

* " REA 

5 


NC3NZ(2) 

REA. 

. .6 


NLSTsNR*NC 

REA. 

7 


IF( NLST ,LT. 1 ,0R. NR .LT. 1 ) GO TO 16 

REA. 

e 


00 aoo I = 1, NR 

REAf 

_.__9 

. _ ttOO 

REAO (5,101) ( A ( J), J s I , NLST , NR ) 

REA ' 

10 


NA ( l ) sNR ' 

REA. 

n 


MA(2)sNC 

RE A C 

_12 

aio 

CALL PRNT (A,NA,NAM r l) 

REAf 

13 

101 

FORMAT ( 80 1 0 ,2 ) 

' REA'’ 

la 


return 

REAr 

..15 

16 

CALL_LNCNT(l) 

REAP 

16 


WRITE (6,916) NAM,NR,N~C 

REAf 

17 

916 

FORMAT (• ERROR IN REA01 MATRIX •,*<»,' HAS NAs»,2I6) 

RE AC 

— 18 


.RETURN 

REAP 

19 


ENO ' ' - - - 

REAP 


9 


I 


9_ 

1 

2 
r 1 

n 

. .b_ 

I* 

11 

! 12 _ 
13 

I 14 

1 .15_ 
16 
17 

ta_ 


SUBROUTINE «A».4NCCNM,N,A # Lnw,ICH, SCALE) 
IMPLICIT RE At *8 <A-M,0-Z) 

INTEGER I,J,*,UM,N, JJ,NM, IGH,L0W, IEXC 
DIMENSION A(NM,N),SCALE(N) _ _ _ 

REAL C,F,G,R,S, 82, RAOIX 
REAL 0A6S 

LOGICAL NOCONV _ . _ _ 


l 

I 

I 


C 

c 

c*~ 

c 

C 

c 
c 

c . .. . 

RAOIX a 16. 

C 

B2_* RADIX * RAOIX 

K a 1 
L a N 

GO JO 100 


RAOIX IS A MACHINE OEPENOENT PARAMETER SPECIFYING _ 
THE BASE OP THE MACHINE FLOATING POINT REPRESENTATION. 


IP 

20 

2L. 

22 

23 

.24 

25 

26 
.2.7.. 
28 

29 

30 

31 

32 
33. 

34 

35 

36 

37 

38 

39. 

40 

41 
42. 

43 

44 
.45 

46 

47 

40. 
46 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 


C 

c 


IN-LINE PROCEDURE FOR ROW ANO 

column exchange ********** 


. 2.0— SCALE ( M ). a_J 

IF (J .EQ. M) GO TO 50 

DO 30 I a 1, L ... 

F a A(I,J) 

A(I,J) a A(I,M) 

A(I,M) s F 

30 CONTINUE 


T" 


—57 




_ _ DO 40 I a K, N _ 

F a A(J,I) 

A(J,I) a 4 (M, I ) 

. _ A(M f I) a F 

40 CONTINUE 
C 

50 GO TO (80,130), IEXC 

C ********** SEARCH FOR ROWS ISOLATING AN EIGENVALUE 

C ANO PUSH THEM OOWN ********** 

8Q IF (L .EQ. 1) GO TO. 280 

L a L - 1 

C a ********* FOR JsL STEP -l UNTIL l DO --♦***★***** 

100 00.120 JJ a 1, L _ . . _ 

J s L M • JJ 
C 

00 110 I s 1, L _ _ _ _ 

IF (I .EQ. J) GO TO 110 
IF ( A ( J , I ) ,NE. 0.000) GO TO 120 
110 CONTINUE . . 


M = L 

IEXC = l _ 

GO TO 20 
120 CONTINUE 

GO TO 140 

********** SEARCH FOR COLUMNS ISOLATING AN EIGENVALUE 
ANO PUSH THEM LEFT ********** 

130 K a K. + l 

140 00 170 J a K , L 

00 150 I a K, L A _ 97 


C 

c 

c 

c 


BALOO^ 

BALOO' 

BALOO 1 

BALOO 

BALOO' 

8AL00 1 

BALOO' 

BALOO' 

BALOO' 

BALOO 

'BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BJLOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BALOO 

BJLOO 

BALOO 

BALOO 

BALOO 



163 



IF (I .EQ. J) GO TO 150 

8AL00 

16a 



IF (A(I,J) .ME. 0.000) GO TO 170 

8JL0O 

65 


150 

CONTINUE 

8AL00 

H 66 

c 

■ 


8AL00 

|67 



M * K 

"BALOO 

*60 



IEVC * 2 

8AL00 

.69. 



GO TO 20 

BALOO 

i 70 


170 

CONTINUE 

8AL00 

1 71 

c 



i** BALOO 

...72 



OCL.180 I * K, l 

BALOO 

I 73 


180 

SCALE ( I ) » 1.000 

BALOO 

1 7a 

c 



. 8JL00 

. 75 


_190 

NOCONV s .FALSE, 

BALOO 

• 76 

c 



RALOO 

77 



DO 270 I=K, L 


Its 



C a 0.000 

BALOO 

79 



R = 0.000 

BALOO' 

1 80 

c 



BALOO 

181 



00 200 J a K, L 

BALOO 

82 



IF (J .EQ. I) GO TO 200 

BALOO 

■ 83 



C a C ♦ DA0S(A(J,I>) 

BALOO 

1.8 a 



R a R ♦ DABS ( A ( I . J) ) 

BALOO' 

*85 


200 

CONTINUE 

BALOO 

86 

c 


********** GUARD AGAINST ZERO C OR R DUE TO UNDERFLOW ****** 

***** BALOO 

1 .87 



IF (C .EQ , 0.000 .OR. R .Ett. 0.000) GO TO 270 

BALOO 

1 88 



G a R / RADIX 

BALOO 

89 



F a 1.000 

BALOO' 

1 90 



S a C ♦ R 

BALOO' 

J9t 


210 

IF (C ,G£. G) GO TO 220 

" BALOO' 

92 



F s F * RAOIX 

BALOO 

.93 



C a C * 82 

eALOO* 

I 9a 



GO TO 210 * •••' 

RALOO' 

1 95 


220 

G s R * RAOIX 

BALOO' 

96 


_230 

IF CC .LT. G) GO TO 240 

BALOO' 

1 97 



F a F / RAOIX 

8AL00' 

1 98 



C = C / 82 

BALOO' 

99 



GO TO 230 

baloi 

/OO 

c 


********** NOW BALANCE ********** 

baloi 

1 01 


240 

IF ((C * R) / F ,GE. 0.95 * S) GO TO 270 

baloi 

102 



G a 1.000 / F 

baloi 

103 



SC ALE ( I ) a SCALE(I) * F 

' ' BALOI 

1 04 



NOCONV a .TRUE. 

baloi 

* 05 

C 



baloi 

106 



00 250 J a K, N 

BALOI 

fl 07 


250 

A(I,J) a A(I,J) * G 

baloi 

1 08 

_c 



baloi 

109 



00 260 J a 1, L 

baloi 

J 10 


260 

A(J,I) = A(J,I) * F 

BALOI 

1 It 

c 



BALOI 

1 12 


'270 

CONTINUE 

baloi 

113 

c 



BALOI 

| 14 



IF. (NOCONV) GO TO 190 

baloi 

1 1 5 

"c 



BALOI 

1 16 


280 

LOW = K 

BALOI 

i 1 7 



IGH = L 

BALOI 

I 18 



RETURN 

BALOI 

119 

c 


********** LAST CARO OF BALAMC ********** 

BAlOI 

r 



END 

BALOI, 


I 


I 


A-98 


1 





|.o. 


SUBROUTINE ELMHE3<NM,n,L0W, IGH, A, INT) 



ELM000 


1 1 


IMPLICIT PEAL*8 <A-H,0-Z) 



ELMOOO 

2 


INTEGER I, J»M,N,LA,NM # IGH,KPl ,L0W,MM1, 

MP J 


ELMOOO 


1 J 


DIMENSION A ( NM, N ) 



ELMOOO 


|« 

C 

real x,y 



. - gLMOOO 


'5 

C 

REAL 0A8S 



ELMOOO 


. 6 


INTEGER INT.(IGH) _ 



ELMOOO 


I 7 

C 




' ELMOOO 


» 8 


LA » IGH • 1 



ELMOOO 

SL 


KP1 * LOW ♦ l 



elmooi 


1 0 


IF (LA .LT. KP 1 ) GO TO 200 



„ ELMOOI 


1 

C 




ELMOOI 

. 12 

D0_ 180 M a KP1, LA 



ELMOOI 


.13 


MM \ rn M • 1 



ELMOOI 


|14 


X a 0.000 



ELMOOI 


■is. 


I._* M . . 



ELMOOI 

16 

c 




ELMOOI 


17 


00 100 J S M, IGH 



ELMOOI 


Il8, 


_ _ IF (DA83(A(J,MMl)) .LE. OA0SCX)) 

GO 

TO 100 

ELMOOI 

19 


X a A(J,MM1) 



ELM002 


,20 


I * J 



ELM002 


2.L 

130 

CONTINUE 



ELM002 


22 

c 




ELMO 02 


.23 


INT (M) s I 



ELM002 


i<L 


IF (I ,E0, M) GO TO 130 W 



ELM002 


'25 

c 

********** INTERCHANGE ROWS AMO COLUMNS 

OF 

A ♦ ***• 


26 


DO 110 J a MM 1 f N 



EL M 002 

P 7 - 

12® 


Y a A ( I , J ) 



ELM002 


A ( X # J ) a A(M,J) 



ELM002 

29 


A(V,J) 3 Y 



ELMOOT 

1 

30 

110 

CONTINUE 



ELMOO? 


31 

c 




ELMOO? 

1 

32 


00 120 J a 1 r IGH 



ELMOO? 

33 


Y s A(J,I) 



ELMOO? 

1 

34 


A(J,I) a A(J,M) 



ELMOO 1 

1 

35 


A(J,M) r Y 



ELMOO 7 

36 

.. .120 

CONTINUE 



ELMOO? 

1 

37 

c 

********** ENO INTERCHANGE ********** 



ELMOO? 

| 

38 

130 

IF (X ,EQ, 0,000) GO TO 180 



ELMOO • 


3? 


_ MP1 a M ♦ 1 



ELMOO'. 


40 

C 




ELMOO i- 

1 

41 


00 160 I s MP 1 , IGH 



ELMOO <• 

I 

42 


Y s A ( X # MM l ) 



ELMOO i 

43 


IF (Y ,EQ. 0.000) GO TO 160 



ELMOO^ 

1 

44 


Y a Y / X 



ELMOOO 

i 

45 


A C I * MM 1 ) 3 Y 



ELMOO i- 

46 

C 




ELMOO- 


47 


DO 140 J s M, N 



ELMOOO 

1 

48 

140 

A(I,J) = A(I,J) - Y * A(M,J) 



EL M 0 0 • 

n 

49 

c 




ELMOO' 

50 


DO 150 J a 1, IGH 



ELMOO' 

1 

51 

150 

A(J,M) s A(J,M) * Y * A(J,I) _ 



ELMOO' 

m 

52 

C 




ELMOO' 

S3 

160 

CONTINUE 



ELMOO' 

*54 

C 




ELMOO' 

1 

55 

180 

CONTINUE 



ELMOO' 

56 

C 




ELMOO 1 


57 

200 

RETURN 



ELMOO' 

| 

50 

c 

********** LAST CARO OF ELMHES ********** 


ELMOO' 

1 

59 


END 



ELMOO' 


A-99 


0 

1 

2 

3 

a 

5 

. 6 
7 
0 
9 
10 
n 

_12 

13 

14 

LS 

16 

17 

_ 10- 

19 

20 

21. 

22 

23 

2« 

25 

26 
27 

2S 

29 

.30 

31 

32 

33 
3a 

35 

36 

37 

38 
_39 

ao 

oi 

_42 

a3 

44 

_a <5 

U6 

97 

90 

U 9 

50 

51 

52 

53 
59 

55 

56 

57 
50 

59 

60 
61 
62 


C 

c 

c 

c 

c 

c 


c 

CL. 


90 


SUBROUTINE HGR(NM,N,LOw, IGH,H,WR,WI , IfRR) 

IMPLICIT R£AL*0 (A-H,0-Z) 

RE AL*0 N0RM,MAC6EP 

INTEGER I, J,K,L#M»N,EN,LL,MM f NA^NM,IGH,IT3,L0k»,MR2,ENM2, IERR_ 
DIMENSION H(NM,N) ,WR(N) ,WI (N) 

REAL P,Q,R,S,T,W,x,Y,ZZ,NORm,maChEP 

REAL** 03QRT,0ASS,DSIGN 

INTEGER MINO 
LOGICAL NOTLAS 


********** MACHEP IS A MACHINE OEPENOENT PARAMETER SPECIFYING 

. .THE RELATIVE PRECISION OF FLOATING POINT ARITHMETIC. 


MACHEP..* 16 . **(.- 13 ) 

ierr b 0 

_.NORM„s_ 0.000 

K b 1 

********** STORE ROOTS ISOLATED BY BALANC 
AND COMPUTE .MATRIX NORM ******< 
DO 50 I s W N 

r > 

__DO ao J r K, N 

NORM 8 NORM * DA8S(W(I,jV) 


1 


I 


50 


K = I 
IF (I 
WRCI) 
*61(13 
CONTINUE 


.GE. LOW 
s H(i,n 
= 0.000 


.AND. I .LE. I GH ) GO TO 50 


********** 


SINGLE SMALL SUB-0 1 AGONAL ELEMENT " 
STEP -1 UNTIL LOW 00 — ********** 


EN s IGH 
T s 0.000 

********** SEARCH FOR NEXT EIGENVALUES 
60 IF (EN ,LT. LOW) GO TO 1001 
ITS s 0 
NA s EN - 1 

ENM2 s NA - l 

********** LOOK FOR 
FOR Ls£N 

70 DO 80 LL s LOW, EN __ 

L s EN ♦ LOW - LL 

IF fL .EG. LOW) GO TO 100 

S s DA8SCHCL-l,L-l) ) ♦ DAB3(HCL,L)) 

IF (S .EG. 0.000) S's NORM 

IF (OABS(H(L,L-l) ) ,LE. MACHEP * S) GO TO 100 
00 CONTINUE 

********** FOR M SHIFT ********** 

100 X s H(EN,EN) 

IF CL .FG. EN) GO TO 270 
Y 8 H (NA , NA ) 

W 8 H ( E N , M A ) * H ( N A , EN ) 

IF (L .EG. NA) GO TO 200 
IF (ITS .EG. 30) GO TO 1000 

IF (ITS .NE. 10 .AND. ITS .NE. 20) GO TO 130 
********** FORM EXCEPTIONAL SHIFT 
T s T ♦ X 


********** 


120 


DO 120 I s LOW, EN 
HfI,I) = H ( I , I ) - X 


A-100 


HQRO 
HQROO 
HQROfi 
HOROl 
MGRO* 
UQRO 
HQRO 
~ HQRO 
MQROO 
HQRO* 
HQR o| 
HQROO 
HQRO « 
‘ HQRO 
HQRO 
HQROO 
HQR O I 
HQRO i 
_ HQROO 
"HQRO | 
HQRO § 

HQROO 

HQROO 
HQRO I 

HQRO J 

HQROO 
HQRO 
_ HQRO 
"'“'HOP 0 0 
HQROO 
HQRO I 
HQROO 
HQROO 
HQRO 
“ HQPQ 
HQROO 
HQRO '* 
HQRO { 
HQROO 
HQROO 
' 'HQRO | 
HQRO J 
HQROO 
HQRO 
HQRO 
HQROO 
HQRO 
HQRO 
HQRO 0 
HQROO 
HQRO 
HQRO 

"~Hqroc 

HQRO 
HQRO 
HQR 0 ( 
HQRO 
HQRO 
' HQRO 
HQR 0 ( 
HQRO 
HQRO 

HQRO i 


63 

64 

65 

- 66 .... 

67 

65 C 
.69 .XL 

70 C 

7 1 

. 72 __ 

73 

74 

...75 

76 

77 
...7 5. 

79 

80 
.-81 

82 
83 
—84 

85 

86 
_87 

88 
89 
—90 _ 

91 

92 

93 

94 

95 C 
9b C 


C. 

C 


_ S * DAB3(M(EM,NA) ) f 0A8S(H(NA#ENM2)) 

X » 0.75 * S 
Y a X 

W a -0,4375 * S • S 

130 ITS a ITS ♦ 1 "" ' " * 

********** LOOK FOR two CONSECUTIVE SMALL 
SU0-OIAGONAL ELEMENTS. 

FOR msen-2 STEP -1 UNTIL' L 00 — ********** 
00 140 mm a l# ENM 2 

M 3 ENM2 ♦ L - mm 

ZZ * H(M,M) 

R * X - ZZ 
? * Y - ZZ 
P a (R * 3 - w) 

Q a W(M*i,M*i) - ZZ - 

R a H(M*2,M*1 ) 

S a OABS(P) * OABS(O) 

P a P / 3 

.Q a 0 / S _ _ _ _ 

R a R / S 

IF (M ,EQ. L) GO TO 150 

..IF. (DAB3(H(m,m- 1 ) ) *_ (OABS(Q) f 0A83CR)) .LE. MACHgP 
* (0A8S(H(M-l ,M-l ) ) * DABS (ZZ ) t OABS(HCM*l,MM)))f 


i 

i 

e 

I 


/ H(M* 1 # M) ♦ H(M,M* 1 ) 

R - S 


♦ OA 0 SCR) 


* OABS(P) 
GO TO 150 


lao CONTINUE 


150 MP 2 a M * 2 

DO 160 I = MP 2 , en 

H(I,I-2) * 0.000 
IF (I ,EQ . MP2) GO TO 160 
H( I, I -3) a 0.000 
160 CONTINUE 

********** DOUBLE OR STEP INVOLVING ROWS L TO EN AND 
COLUMNS M TO EN ********** 


97 

DO 2bO K s M, NA 

98 

NDTLAS = K ,N£. NA 

99 

IF (K .EG, M) GO TO 170 

100 

P = H(K,K-1) 

101 

Q = H(Ktl,K-l) 

-102 

R a 0.000 

103 

IF (NOTLAS) R = H(K*2,K-1) 

104 

X z OABS(P) ♦ OABS(Q) ♦ OABS(R) 

105 

.. IP (X ,EQ. 0.000) GO TO 2b0 

106 

P a P / X 

107 

Q a Q / X 

.108 

R a R / X 

109 170 

S a D’siGNCOSQRTcP*PfQ*Q+R*R),P) 

110 

IF (K .EG. M) GO TO 180 

111 

H(K,K-1) s -S * X 

112 

GO TO 190 

113 180 

IF CL .NE. M ) H(K,K-t) z -H(K,K-l) 

114 190 

P z P •>, S 

115 

X z p / S 

lib 

Y z Q / S 

117. 

ZZ z P / S 

118 

Q z Q / P 

119 

R s R / P 

1 20 C. . 

********** ROW modification ********** 

121 

DO 210 J z K, EN 

122 

P z H(K, J) ♦ Q * N(K*t,J) 

123 

IF (.MOT, NOT). AS) GO TO 200 

124 

P s P * R * H(K*2,J) 

125 

H(K*2,J) = H(Kf?,J) - P * ZZ A _ 


HQROI 
HQROO 
HORO 
HQR 0 
HORO 
HQROO 
HORO 
HQRO 
HQROO 
MQRO 
HQRO_ 
HQROO 
HQROQ 
HQRO I 
HQRof 
HQROO 
‘ HQROI 
HQROI 
HQROO 
HQROI 
HQRO I 
HQRO* 
HQROO 
HQRO I 
HQRO J 
HQROO 
HQRO j 
HQRO j 
HQROO 
HQROO 
HQRO j 
HQRO J 
HQROO 
HQRO I 
HQRO I 
HQROO 
HQRO# 
HQRO I 
HQROI 
HQP01 
HQRO J 
HQRO * 
HQROI 
HQRO 
HQRO 
HQROI 
QQRO 
HQPO 
HQRO I 


QQROi 

hqrq! 

HQROI 
HQR Oi 
HQRoj 
HQROI \ 
HQROI- 
HQPOI: 
hqro* ; 
HQROI? 
HQROI 
HQRO| 
HQROI r 


126 200 N(KM,J) a H(KM'J) - P * Y 

127 H(K,J)aH(K,J)-P*X 

129 210 CONTINUE 

129.. C . 

150 J * MIN0(EN,K*3) 

131 C ********** column modification •*••*»***• 

132 _0O 230 I a L r J _ __ 

133 P a X * H ( 1 « K ) ♦ Y * H(I,k*1) 

13« IF (.NOT. NOTLAS) CO TO 220 

L35 P * P * ZZ *_M(I,K*2J __ 

136 H(I,K*2) a H(i,K*2) •“ P *R 

137 220 H(I,k* 1) a H(I,K*t) • P * 0 

130 M(I,K) * M(I,K) .J _ 

139 230 CONTINUE 

1 «0 C 

UJ 2.60 .CONTINUE 

102 C 

1«3 60 TO 70 

_l_0O .C **********. ONE »OOT_FOUNO_ ********** __ 

105 270 WR(EN) a X ♦ T 

106 WI(EN) s 0.000 

__L07 EN_J». N A __ _____ 

108 60 TO 60 ~ ' " 

1 OQ C ********** TWO ROOTS FOUNO ********** 

..1.50 20.0 P. «. (Y • X) / 2.000 & 

151 Q a P * P ♦ W 

152 ZZ a OSQPT (DABS(Q) ) 

. 153 X.a_ X ♦ T _ 

150 IF (Q ,LT, 0.000) CO >0 320 

155 C ********** REAL PAIR ********** 

.J56 ZZ a P * OSICN(ZZ.P) 

157 WRCNA) a X ♦ ZZ ' * 

158 WP(EN) a WR(NA) 

.1.5.9 _ IF (ZZ ,NE, 0,000) WR_(EN) a X W /_ ZZ 

160 WI(NA) a 0.000 

161 WI(EN) a 0.000 

162 60 TO 330 

163 C ********** COMPLEX PAIR ********** 

16a 320 WR(NA) a X ♦ P 

_165 _WP(EN) a X ♦ P 

. 166 WI(NA) s ZZ “ ” ~ ~ 

167 WI(EN) a -ZZ 

166 _330 EN s ENV2 

169 GO TO 60 

170 C ********** SET ERROR — NO CONVERGENCE TO AN 

_171„C EIGENVALUE AFTER 30 ITERATIONS ********** 

172 1000 I ERR = EN 

173 1001 RETURN 

17a c _ ********** last card ofhqr ********** 

175’ END 


,1 
HQR j 

' HQR * • 

HQRO j 
HQfll 

— HOP! j 
HQR 0 | 

HQR k ! 
HOPf 
HQR " 
HOR^ 

hqrI 
HQR<P 
HQRO ' 
HQR* 
HQR<| 
__HORO! 
HQPfU 
HQR (I 
HQR<" 
HQRO’ 
HQRfl 

HQRCl 

HQRO 1 
HQRCj 
HQRC| 
HQRO 1 

HQPOi 

HQRCl 

'hqrg! 

QQR01 
HQRCl 
HQRCl 
HQRO 1 
HQRCl 

''hqroI 

QQR01 
HQROI 
HQRol 
HQRCl i 
HQROI 
QQROi 
HQRol 
HQROI 
HQROI 
HQRO| 
HQROT 
'HQROI 
HQRO J 
HQRol 
HQROI 

I 


I 



0 

1 

2 

3 

a 

5 

.6 

7 

8 
9 


to 

tt 

— 1.2. 

13 

14 

15 


16 

17 

.JJI 

19 


C 

C_ 

C 


SUBROUTINE INVIT<NM,N. A,WR,Wl,SELECTf mm,M,Z. IE»R#RM l ,RV1 ,RV2) 

IMPLICIT REAL*8 (A.M,0-Z> 

R£AL*8 NORM,NORMV, IL*M90,MACHEP 

XNTECER I, J,K,L#M,N,8# II# IP#mm,mp # nm,N 9#NJ ,UK, IP1 , ITS,KMi , I ERR 

01 MENS ION A(NM,N) ,WR(N) ,WI (N) ,Z(NM, MM) ,RM| ( N , N ) , RV 1 < N) , R V2 ( N ) 

REAL T,W,X,y,EPS3,NORM,NORMV,<5ROWTO,ILAMBO,MACMEP,RLAM0O,UKROOT 
REAL*A 0SQR1 #COA0S,OA8S,OFLOAT 
INTE6EP I A0S 
LOGICAL*! SELECT(N) 

JC0MPLEX*16 Z 3 # OCMPLX 

R£AL*8 0REAL#0IMAG 

..m\CHEP ■_I6,**(-13). 

IERR a 0 

_ UK_ « 0 

S > t 


IP a 0» REAL EIGENVALUE 

1 , F I R3T OF CONJUGATE COMPLEX PAIR 

•l, SECONO* OF 'CONJUGATE COMPLEX PAIR" 


20 


IP 

3 0 









2.1 . 


Nl_ 

Jf N 

•. 1„ 








22 

C 











23 


00 

980 

K a l, 

N 







_24. 



IF 

(WI(K) 

.EQ, 

.0. 

000 jOR , T? 

L_T 

_._0) 

GO TO 100 

25 



IP 

a 1 








26 



IF 

(SELECT 

(K) 

, ANO , SELECT (K*l 

)) 

SELECT (K*l ) a .FALSE. 

. .27 

. 100 


IF 

(.NOT. 

SELECT ( 

K)) 

GO TO 960 




28 



IF 

(*I(K) 

.NE. 

0. 

000) 

S a 3 ♦ 

1 



29 



IF 

(S ,GT, 

MM) 

GO 

TO 

1000 




_30 



-IF 

(UK ,GE 

. K) 

GO 

TO 

200 




31 

C 

**< 

» *** 

**** CHECK 

FOR 

POSSIBLE SPl 

ITTING 

ft#**#****# 

32 



00 

120 UK 

a K, 

N 






33 




IF (UK 

.EQ. 

N) 

GO 

TO 140 




34 




IF (A(UK*lf 

UK) 

.EO 

. 0,000) 

GO 

TO 

140 


I 


35 

36 

37 

38 
._3R 

ao 
at 
_«2 
03 
aa 
_05_ 
06 
07 
.. 08. 
09 
50 

3.X 

52 

53 
50 

55 

56 

57 

58 

59 

60 
61 
62 


120 

140 


CONTINUE 

********** COMPUTE INFINITY NORM OF LEADING UK 0Y UK 
(HESSEN0ERG) MATRIX ********** 

NORM s 0,000 
MP C i 


00 180 I 3 l, UK 
X s 0,000 

DO 160 J s Mp, UK 
JL 6 0 X _5L _x ♦ DABS (A (I , J)) 


180 


200 


IF (X ,GT, NORM) NORM a X 
MP s I 

"CONTINUE 

********** EPS3 REPLACES ZERO PIVOT IN DECOMPOSITION 

AND CLOSE ROOTS ARE MODIFIED 8Y 6PS3-******** ** 

IF (NORM .EO. 0,000) NORM s 1,000 
EPS3 a MACHEP * NORM 

********** GROTTO IS THE CRITERION FOR THE GROWTH ********** 
UKROOT a DSGPT ( DFLO AT (UK ) ) 

GROWTO a l.OO-l / UKROOT 
RLAM0D a wR(K) 

ILAMBO'a WI(K) 

IF (K .EQ. 1) GO TO 280 
KMJ s K • l 
GO TO 240 

********** PERTURB EIGENVALUE IF IT IS CLOSE 

A-l O') 


INVO 
INVO r 
INVOf 
RNVOj 
"INVO? 
INVOO 
INVOI 
RNVOI 
INVOO 
INVOfi 
“INVOl 
INVO* 
INVOO 
" INVOl 
INVO* 
RNVOO 
"INVOg 
INVOl 
INVOO 
■"INVOO 
INVOl 
RNVO* 
INVOO 
INVO 
INVO 
'"INVOO 
INVOl 
INVOl 
' INVOO 
INVOO 
INVOl 
INVOl 
INVOO 
INVO I 
INVO I 
INVOO 
INVO' 
INVO 
INVO. 
INVOO 
INVO I 
INVO I 
INVOO 
INVOl 
INVO I 
INVOO 
"INVOO. 
INVOl 
INVO I 
' INVOO 1 
INVOl 
&RNVOI 
INVOO 1 
INVOi 1 
INVOl 
' INVO* 
INVOO 1 
INVOl 
' IMVOP 
INVO 0 1 
INVO 
INVO 
I N V 0 OV 


r V 

i) 


1 


63 .C . _ TO ANY PREVIOUS EIGENVALUE ********** 

6« 220 RLAMBO « HLAMBO ♦ EPS3 

65 C ********** FOP I *K • 1 STEP *1 UNTIL 1 00 — ********** 

.66 290 00 260 II » 1, KMt 

67 I « K • II 

68 IF ( SELECT ( I ) .AND. 0 A0S ( WR ( I ) -PLAM0O J ,LT. EPS3 .AND. 

-.69 — X ... OA03(W!(I).ILAM0D) .LT. EPS3) CO TO 220 

70 260 CONTINUE 

71 C 

-72 WR(K) ■ RLAM80 _ _ __ 

73 C ********** PEPTUP8 CONJUGATE EIGENVALUE TO MATCH ********** 


7a IPt • K ♦ IP 

. 75 . HP ( I P J ) ■ PLAM80 

76 C *•*•*•**•* FOPM UPPEP HESSEN8ERG A-RLAM0O*!’ (TRANSPOSED) 

77 C ANO INITIAL REAL VECTOR ********** 

78 280 M P. *_1 

79 C 

80 00 320 I « i, UK 

— 81— C 

82 00 300 J » mp, UK 

83 300 PM 1 ( J , I ) » A ( I , J ) 

d a c 

~85 RMhT7iT« PM1CI,I) - RLAM0O 

86 mp * i 

— SZ _ .. RVLCD.b EP33 __ 

88 320 CONTINUE 

89 C 

—90 ITS s 0 

91 IF (ILAMBO ,NE. 0.000) GO TO 520 

92 C ********** REAL EIGENVALUE. 

— 93. C_ . _ TRIANGULAR DECOMPOSITION WITH INTERCHANGES, 

9a C REPLACING ZERO PIVOTS 0Y EPS3 ********** 

95 IF (UK .EQ. 1) GO TO 920 

—96 C . . 

97 00 900 I a 2, UK 

98 MP s I . 1 

-99 _ _ IF (0A8SCRMI (MP, I) ) ,LE . 0A83(RMt (MP,MP) ) ) GO TO 360 

100 C 

10t 00 390 J 3 Mp, UK 

102 .. Y.s.PMt(J,I) _ __ __ 

• 103 RMl(J,I) 3 RM J ( J , MP ) 

109 RM 1 ( J , MP ) r Y 

.105.. 390 .CONTINUE 

106 C 

107 360 IF (RMl(MP,MP) ,£Q, 0.000) RM1(MP,MP) s EPS3 

,_108 X s RM1(MP,X) / RMl(MP,Mp) _ _ 

109 IF (X ,EQ. 0.000)' GO TO 900 

110 C 

.111— _ __ 00 380 J s I, UK 

112 330 RMi(J,n * RMi(j,i) - x * RM1(J,MP) 

113 C 


119. _900. CONTINUE _ 

115 C 

116 920 IF ( R M j (UK, UK) .EG. 0.000) RM1(UK,UK) s EPS3 

117 C ********** RACK SUBSTITUTION FOR REAL VECTOR 

118 C FOR I sUK STEP -1 UNTIL 1 DO -- ********** 

119 990 00 500 II s 1, tJK 

120 I 8 UK ♦ J • II 


121 
122 
123 
129 C 
125 


Y s RVl (I) 

IF (I .EQ, UK) 50 TO 980 
IP 1 = I ♦ 1 

A-104 

00 960 J s IPt, UK 


URNV d 
I NVO 
INVO 
INV<| 

~ INVO 
INVO' 
INV<| 
INV(F 
INVOf 
_INVC| 
INV<f 
I N V 0 ' 
INVftX 
RNVCfl 
INVCTT 
I NVO r 
“INV0| 
INVCfl 
RNVOC 
' INVCf 
INVOl 

INVOO 

INVOP 
INVOl 
RNVOl 
‘ INVOO 
INVOl 
I NVO I 
“INVOO 
INV02 
INVOl 
'INVO* 
INVOO 
INVOl 
* INVOl 
INVOO 
INVOl 
I NVO J 
INVOl 

invo; 

INVO I 
INVO F 
INVOl 
INVO 1 
INVO I 
_ INVOl ' 
INVOfc 
INVO I 
iNvor 
' INVOl 
INVO 1 
INVO P 
Invoi : 

INVO g 
INVO* 
RNVOl 1 
INVO L? 
INVOl 
INVO " 
I NVO l c 
INVO* 
INVO I 
INVOl ? 


126 


480 

»Vt (I) ■ Y / RMt (1,1) 

INVfU 

12\ 


..500 

. . CONTINUE 

INVf* 

150 

C 



iNvcn 

151 



GO TO 740 

I N VO 1 

132 

C 



INV(| 

155 

C 


TRIANGULA* DECOMPOSITION WITH INTERCHANGES# 

PNvd 

15u 

C 


REPLACING ZERO PIVOTS BY EPS3, STORE IMAGINARY 

INVOI 

155 

.C 



. PARTS IN UPPER TRIANGLE STARTING AT Ct#3) ********** 

INVC* 

136 


520 

NS « N - S 

” PNV(| 

157 



Z(l,S-t) ■ «IL AM0O 

INVO! 

136. 



zu»s> « 0 . 000 , 

INVOi 

130 



IF (N .EQ. 2) GO TO 550 

I N V(| 

lao 



RMi (1,3) « -ILAM0O 

INVO* 

-141 



Z(1#S-1J 8 0.000 

INVOI 

142 



IF (N .EO. 3) GO TO 550 

INVCI 

143 

C 



INVC* 

.144. 



00 540 I a 4, N 

INVOI 

145 


540 

RMI (1#I) • 0.000 

I NV 04 

146 

C 



INVCI 

-147. 


-550. 

. __00 640 I * 2# UK 

INVOI 

148 



MP • I • t 

INVOI 

140 



W a RMI (MP, I) 

INVOI 

_150_ 



IF (I .LT. N) T a RMl(^,r*l) 

INVC* 

151 



IF (I .EQ. N ) T a Z(MP,S-i) ~ ' ~ ' 

INVOI 

152 



X a RMt(MP.MP) * RMl(MP.MP) ♦ T * T 

INVOI 

.J53. 



IF (W * w ,LE. X) GO TO 500 

INVOI 

154 



V a RMt(Mp,MP) / w 

INVOI 

155 



V a T / W 

INVOJ 

156 



RMI (MP.MP) a W 

INVOI 

157 



IF (I ,LT. N) RM l (MP #1*1) a 0.000 

INVOI 

158 



IF (I .EQ. N) Z(MP,S-1) a 0.000 

INVOI 

150 

c. 



INVOi 

160 



00 560 J a I, UK “ — 

“INVOi 

1 6 1 



W a RMI (J,I) 

INVOI 

162 



RMI ( J# I ) S RM | (J,MP) - X * w 

I NV 0 

163 



RMUJ,MP) s H 

INVO 

164 



IF (J .LT. Nl) GO TO 555 

I N V 0 

. 105_ 



L a J • NS 

INVOI 

166 



Z(I#L) a Z(MP,L) - Y * W 

' '"INVOI 

167 



Z(MP,D a 0.000 

INVO! 

168 



GO TO 560 

INVOI 

160 


555 

RMI ( I # J*2) a RMi(MP,J*2) • Y‘ * W 

INVOI 

170 



RM1(MP,J*2) a 0.000 

INVOI 

171 


_560 

CONTINUE 

INVOI 

172 

T 



INVOi 

173 



RMI ( I # I ) a RMI ( I # I ) - Y * ILAM0O 

1 NV 0 1 

174 



IF (I .LT. Nl) GO TO 570 

INVO* 

175 



L a I • NS 

INVOI 

176 



Z(MP#L) a -ILAM80 

INVOi 

177 



Z(I#L) a Z ( I # L ) ♦ X * ILAM0O 

INVO* 

178 



GO TO 640 ' “ 

“ INVOI 

179 


570 

RMi (MR . { +2 ) a -IL AM0I) 

RNVO| 

180 



RM l ( I # I *2 ) S RM 1 ( I , I *2 ) ♦ X * ILAM0O 

INVOi 

181 



GO TO 640 . 

~ TNV01 

182 


580 

IF (X ,NE. 0.000) GO TO 600 

INVOI 

183 



RM 1 (MP.MP) s EP53 

INVOJ 

184 



IF (I ,LT. N) RM 1 ( MP #1*1) s 0.000 " " 

' INVO® 

185 



IF (I .EO. N) Z(MP.S-l) a 0.000 

INVOI 

106 



T a 0,000 

INVOJ 

187 



X s EPS3 * EPS 3 

IMVOi 


w 


189 



X » PMl (MP,MP) * W 

190 



Y * -T * W 

191 

C 



192 



00 620 J a I, UK 

19J 



IF (J ,LT. Nt) GO TO t 

199 



L s J • NS 

195 



T « Z (MP f L) 

196 



Z(I,L) a -X * T - Y * 

19? 



GO TO 615 

198 


.610 _ ... 

T a RMl(Mp,J*2) 

199 



RM1(I,J*2) a -X * T - 

200 


615 

RM!(J,I) a RM1(J,I) - 

201. 


.620 

CONTINUE . 

202 

C 



203 



IF (I .LT. Nl) GO TO 630 

209. 



L a I - NS 

205 



Z ( I »L ) a Z(IfL) - ILAM0O 

206 



GO TO 690 


610 


RMl ( J,MPJ 


RM1 (J,MP) 


♦ Y * T 


- 2 0.7_ 
209 
209 
_2L0. 
211 
21 ? 
213 

219 

215 

21 . 6 . 

217 

218 

219 

220 
221 


.630. 

690 


. _ ( I r I ♦?) * RMJ (1,1*2) - JLAJ*0D__ 

CONTINUE 


650 

655 


860 


IF, CUK ,LT *_Nt )_GQ T0_J>50 

L a UK - NS 
T s Z(UK,L) 

.. GO TO 655 

T s PMl(UK f UK*2) 

IF (RMl(UK r UK) .EQ. 0.000 
********** BACK SUBSTITUTION 
FOP I=UK STEP 
II s 1, UK 
UK ♦ 1 - II 
RV1 (I) 

0.000 


INVO ■ 

iNvor 

I N V 0 1 c 
INVOl 
INVOP 
I NVO 1 c 
INVO* 
INVoJ 
IN VO l c 
INVOU 
INVOJ 
iNvoir 
INV02 r 
INVOil 
INVOil 
INV02f 
INVO.V 
INVOil 
INVOfr 
INVO?r 
INVOil 


.AND. T ,E0. 0,000) RM1(UK,UK) s 
FOR COMPLEX VECTOR 
•l UNTIL l 00 •• ********** 


00 


720 
I s 
X a 
Y a 


INVOc- 
INV02! 
INVOil 
INVOil 
INV021 
EP33INV0** 
INVOJ 
INVOifi 
I N V 0 2 ! 


INVOij 


. 222 



IF (I ,EQ. UK) GO TO 700 

223 



IPl a I * 1 

229 

C 



225 



00 680 J a IPl, UK 

226 



IF (J .LT. Nl) GO T 0 670 

227 



L a J - NS 

.22 8 



T a Z C I » L) 

229 



GO TO 675 

230 

670 


T a RM1 (I fJ+2) 

.231. 

675 


X a X - RMKJ,I) * RV1CJ) 

232 



Y a Y - RM1(J,I) * RV2CJ) ■ 

233 

680 


CONTINUE 

. 239 C 



235 

700 


IF (I .LT. Nl) GO' TO 710 

236 



L a I - NS 

.237. 




T a Z(I,L) 

238 



GO TO 715 

239 

710 


T a RM1CI,I*2) 

290 

.715 


Z3 a OC*PLX(X,Y) / 0CMPLX(R“1 

291 



RVl(I) 3 DREAL (Z3 j 

292 



WV2 ( I ) = 01 MAG (Z 3 ) 

.293 

. .720 

CONTINUE 

299 

C 

********** acceptance test for real 

295 

C 


EIGENVECTOR ANO NORMALlZi 

29 6 

. .790 

JTS 

a ITS ♦_ l 

297 


NORM r 0.000 

298 


NOR M V a 0.000 

299 

C 



250 


00 

780 I a l, UK 

251 



IF (ILAM0O ,E0 . 0,000) X a 0A| 


i 


T 

T 


RV2(J) 

RVt(J) 


INVOJ 
RNV02e 
I N V 0 <Y 
INVOij 
INV022 
INVO?, 
invo; 

I N V 0 'a. 
INV02! 
INVO«| 
INVOil 
INVO?! 
RNVO% 7 
INVOil' 
INVOiTf 
I N V02 ! 
INVO-1 
INVO*. 
I N V 0 2 ! 
INVO 
INVO 
INV02' 
INVO 
INVO 
INVO c 
INV02 
INVO 
INVO 
INVO?i- 
INVOft! 
INVOl: 
I N V 0 2 c 


n 


252 


253 


254 


255 


256 

760 

257 

780 

258 

C 

259 


260 

C 

_261 


262 

263 

.264 

-C 

265 


266 


-267. 


268 


269 

800 

-27-0- 


271 


272 

820 

_273 

c 

274 


275 


_27J> 


277 

c 

278 

c 

-27?. 

8.40 

290 


281 


282 


283 

c 

294 


285 

860 

286 

"c 

297 


288 


289 


290 


291 

C 

2 92 

880 

293 


294 

C 

295 

900 

296 


297 


298 

92 (T 

299 

C 

300 

940 

301 

"960 

302 


303 

980 

304 

C 

305 


306 

c 

307 

c 

308 

1000 

309 


310 

iooi 

311 


312 

c .. .. . 

313 

1 


.... IF fILAMBO ,NE, 0.000) X * CDA8S (OCMPLX (RV l ( I ) , RV2 ( I) ) ) 
IF (NORmv .GE. X) GO TO 760 
MORMV s X 

.. _ J * I _ __ 

NORM s NORM ♦ X 
CONTINUE 

IF (NORM ,LT. GR0WT6~fG0 TO 800 “ 

********** ACCEPT VECTOR ********** 

X a. PV1 (J) _ _ 

IF (ILAM60 ,EQ. 0.000) X a 1.000 / X " “ 

IF (ILAM90 ,NE. 0.000) V a RV2(J) 

00 820 I a 1. UK 

IF (ILAM0O ,N6. 0,000) GO TO 800 

ZU,S) * RVl(I) _*_ X 

GO TO 820 " 

73 a OCMPLX(RVt(n,RVa(I)) / DCMPLX(X,Y) 

Z(I,3-1) a DREAL(Z3) ____ _ 

Z(I *3) 3 0IMAG(Z3) 

CONTINUE 

IF "(UK . E 6 1 ~N p GO” T0‘9tt0‘ 

J a UK ♦ 1 

GO TO 900 ^ ________ 

********** in-line PROCEDURE FOR CHOOSING 

A NEW STARTING VECTOR ********** 

_ IF (ITS .GE.JJK) GO _T0 880_ 

X a UKROOT ' ~ 

V a EPS3 / (X * 1.000) 

RV1 (1 ) a EPS3 

00 960 I a 2, UK 
_ RV1 (I ) a Y 

J a UK - ITS * 1 
R V 1 J) a RVi (J) - EPS3 * X 
IF (ILAMQO .EQ. 0,000) GO TO 440 
GO TO 660 

_******<• ***_ SET ERROR -- ..UNACCEPTED EIGENVECTOR ********** 

IERR a -K 

********** SET REMAINING VECTOR COMPONENTS TO ZERO ********** 

00 920 I a J, N ~ ... — 

Z(I,S) = 0.000 

___ IF (ILAM90 .NE. 0.000) Z(I f S-l) a 0,000 
CONTINUE ” " ~ 


I MV O' 




3 a S ♦ 1 

IF (IP .EG. (-1)) IP a 0 
IF (IP .EG. 1) IP a -1 
CONTINUE 


ORIGINAL p A r p rc 

op p «»; . i; ., n ; 


GO TO 1001 

********** SET ERROR -- UNDERESTIMATE OF EIGENVECTOR 
SPACE REQUIRED ********** 

IF (IERP .NE. 0) I ERR = I ERR - N 
TF CIEPR .EG. 0) IEPR = -(2 * N + l) 

MaS-1- IAB$(IP) 

RETURN 

********** LAST CARO OF INVIT ********** 

A-107 


INV02 
INV02 
INVOl 
INVOl 
INV02 
INVOl 
INVOl 
I NV 02 
INVOi 
INVOl 
RNVO? 
: v «V02 

/oft 

I' /OP 
T .V02 
I NVOttj 
I NVO| 
RNV02 
"INVOl 
INVOl 

invoF 

I N V 0 2 
I NVO I 
INVO I 
INV02 
INVOV 
INVO I 
INV02 
R N V 0 2 ' 
INVO 
INVO. 
INV02> 
INVOl 
"INVO | 

I N V 0 2 ; 
INVOl* 
INVO I 
INV02- 
INV02< 
"INVO, | 
INVO I 
INV02 C 
INVOV 
INVO. I 
INV02* 
"INVO 2 r 
INVO I 
INVO# 
INV03C 
INVO 
INVO 
INV03 
INVO] 
INVO 
INVO? 
I NVO 3 f 
I N V < 
INVl 
I N V 0 3 
INVO' 
INVO 


:J 


!l 


r \i j ' 

'°I 

i o JBi 


. 0 SUBROUTINE ELMBAK(NM,LOW, IGH, A, INT,M,Z) ELM00| 

t IMPLICIT REAL*® (A-H,0*Z> elmooo 

2 INTEGER I, J,M,LA,MM,MP,NM, IGH,KPt ,LOW ,mpi ELMOO| 

_3 OIMENSION A(NM,IGH) ,Z(NM,MJ __ _ £ LMOO| 

4 C PEAL X ElMOOT! 

5 INTEGER INT(IGH) elmooo 

JC ELMOOl 

7 c’ ' ' ' ' ' ~ " “ " ELMOO* 

B IF ( M ,EQ. 0) GO TO 200 ELMOOO 

_._9 _ . LA s IGH -1 ____ __ _ ELMOO* 

10 KP1 s LOW ♦ 1 " " ELMOOl 

It IF (LA ,LT. KPt) GO TO 200 ELMOOl 

JZ C ********** FOR MPsIGH-t STEP_*1_UNTIL LOW*l 00 -• ********** ELMOOl 

t3 00 140 MM a KPt, LA - - ELMOOl 

14 MP a LOW ♦ IGH • MM ELMOO* 

15 MPi a MP * 1 ELMOOl 

16~C * ELMOOl 

17 00 110 I a MPi, IGH ELMOOl 

IB X a A ( I , MP-l) ELMOOl 

19 ’ IF (X .EG, 0,6) GO 'TO 110 ‘ ELMOO| 

20 C ELMOOl 

21 00 100 J a 1 , M _ _ _ ELMOO* 

22 1 00* " * Z(I,J) a Z(I,J) ♦ X * Z(MP,J) " ELMOO? 

23 C - ELMOOl 

_24 110 _ CONTINUE _ ' __ _ ELMOOl 

25 C - • - •— - - - ' “ ELMOO? 

26 I s INT(MP) ELMOOl 

_27_ _ IF (I ,EQ, Mp) GO TO 140 _ _ __ ELMOOf 

28 C ' ----- ’ ‘ ELM002 

29 DO 130 J a 1, M ELMOOJ 

_30 X a Z(I, J) _ . ELMOOl 

31 Z(I,J) = Z ( MP , J ) ELMOO’i 

32 Z( M P,J) = X ELMOO 3 

33 130.. .CONTINUE ELMOOl 

34 C - — - elmooI 

35 140 CONTINUE ELM303 

36 C ELMOO? 

37 200 RETURN ELMOOl 

38 C ********** LAST CARD OF ELMBAK ********** ELM003 

3? END ___ . _ _ELM004 


I 


I 

I 

I 

I 

I 
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. 0 __ SUBROUTINE 0ALBAK(NM,N, LOW, IGH, SCALE, M,Z) BALOl 

1 IMPLICIT REAL*® (A-H,0-2) BALOO 

2 INTEGER I, J,K,m,N,II,NM,IGH,LOW BALOl 

3 DIMENSION 3CALE(N),2(NM,M) RALOl 

a C REAL S ■ BALOO 

5 IF (M ,EQ. 0) GO TO 200 0ALO| 

_6 IF .(IGH .EQ, LOW) GO TO 120 BALOl 

7 C BALOO 

8 00 110 I s LOw, IGH BALOO 

__9 S * SCALE ( I ) BALOl 

10 C ********** Left hano eigenvectors ARE back TRANSFORMED" ' BALOl 

11 C IF THE FOREGOING STATEMENT IS REPLACED BV BALOO 

..12.-C Sal ,0/3CALE(I) , ********** BALO* 

13 DO 100 J a 1, M ' 8AL0| 

1« 100 2(1, J) a Z(I,J) * S . BALOO 

— 15_C BALOl 

16 110 CONTINUE BALOl 

17 C ********- FOR IsLOW-1 STEP -1 UNTIL 1, BALOf 

L8_C IGH + l STEP 1 UNTIL N_DO _••_***♦****** BALOO 

19 120 00 140 II a i, N BJLOl 

20 I a II BALOl 

. 21 .IF . (I ,GE, LOW ,ANO, I ,LE. IGH) GO TO l«0_ _ _ BALOO; 

22 IF (I ,LT, LOW) I s LOW • II “ ' ' ' BALO* 

23 K a SCALECI) •?> BALOl 

.__24 IF (K , EQ , I) GO TO 140_ _ __ BALOO c 

25 C 0ALO o ; 

26 DO 130 J a 1, M RALOl 

27 S a Z(I,J) BALOJ 

28 Z(I,J) a Z(K,j) ‘ " - - BALOO, 

29 . Z (K , J ) * S BALO'l 

.30 .. 130 CONTINUE . .... - BALO'I 

31 C RALOO. 

32 140 CONTINUE BALOl' 

_33.C _ _ _ BALO'I 

34 200 RETURN "* BAL0i7. 

35 C ********** LAST CARO OF BALBAK ********** BALOO: 

.36 END BALO'I 


I 

I 

I 

I 

I 

i 

I 
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.0 SUBROUTINE OETFAC(NMAX,N,A, IPIVOT, I OET, OE TERM, I8CALE,WK, I ERR) 

1 IMPLICIT REAL*® (A.H,0-Z) 

2 DIMENSION A(NMAX,t) ,IPIV0T(1 ) » WK ( l) 

« C *’ ~ " " 

5 ISCALEaO 

_ 6 _ NMl*N»l _ 

7 IERRaO 

9 C 

... _9__C. _ DETERMINANT CALCULATION TEST 

IOC 

II IFCIOET.EO.l )60 TO 230 

. 12. C _ 

13 C TEST FOR A SCALAR MATRIX 

14 C 

15 IF(NMt # GT • 0 ) GO_TO_20_ 

16 OETERMaA (1,1) 

17 RETURN 
1 9 _C 

19 C COMPUTE 8CAL I NG~ F ACTORS ' ’ 

20 C 


CONTINUE 

22 00 60 Ial,N 

23 PaO.O 

24 00 30 Jat ,N .. 

25 QaOMAXl fP,OA0S(A(I # J) ) ) 

26 IFfQ.GT # P)PaQ 

2 7 30 CONTINUE . 

28 IF(P)60, 40/60 

29 40 OETERMsO.O 

_30 lERRal 

31 return 

32 60 WK(I)sP 

33 C 

34 DO 210 Msi,NMi 



35 

C 



_36 

C 


PIVOTAL LOGIC SETUP 

37 

C 



38 



P = 0.0 

39 



00 110 I=M,N 

40 



OsO A8S ( A ( I , M ) /WK ( I ) ) 

41 



IF(Q-P) 110,110,100 

42 


100 

P=Q 

43 



I Pa I 

44 


no 

CONTINUE 

45 

_C_ 



46 



IPIVOTCMJalP 


47 C 

48 

49 

50 C 

51 C 

52 C 

53 

54 

55 

56 150 

57 _C_ 

58 

59 

60 

61 C 

62 155 


IFCP.EQ.O.JGO TO 40 
IF (M.EQ , IP ) GO TO 155 

PIVOT THE W -TH ROW OF THE A MATRIX 

00 150 1 = 1, N 
PsA ( IP, I ) 

A CIP, I) = AfM, I ) 

A ( M # I ) sP 

PslA)K(IP) 

WK( IP)sWK(M) 

WK ( M )=P 


MPtsVf 1 


DET(J 

OETO? 
OET 
OET 
OET 
OETO 1 
OET( 
OETC 
OETOC 
OETO, 
OETC 
OETO 1 
OETOC 
OETCl 
OETCI 
OETOC 
OETCf 
OETCI 
OETOC 
OET Of 
OETCI 
OETCT 
OETOC 


3 


i 


I 


DETOj 
OETO | 
OETOO 
OETOC i 
OETO I 
OETOu 
OETOC 
OETO | 
OETO I 
OETOO 
OETO I 
OETO 
OETOO 
OETOU ] 
OETO I 1 
OETO J 
DETOO 
“OETO 1 
OETO I 


OETOO 

DETO| 

OETO 1 

OETO * 

OETOO 

OETOl 

OETO® 

OETOO' 

OETO| 

°ET0| 

OETOO' 


OETOl' 
OETO | 

' “ OETO® 
OETOO' 

- ° E - T 1 
OET 006 
0 E T 0 1 • 
OETO*' 
OET OOt 


A -110 


63_C _ 

64 C 

65 C 


L/U FACTORIZATION LOGIC 


. 66 


PaA(M,M) 


67 


00 180 I=MPl,N 


66 


A(I,M)3A(I,M)/p 


„69.__ 


Q*A(I,M) 


70 


DO 180 KsMPl,N 


71 

180 

A(I,K)aA(I,K)-Q*A(M,K) 


. 7i_C. 




73 

74 C 

Tto 

"continue" 


75 

, ^ 

IPIVOTCNJaN 


76 

77 C 


IF (A(N,N) .EQ. 0.0) GO TO 

40 



calculation of the determinant of 

79 C 

80 

-_6t_C. 


IF(IDET,EQ.O)RETURN 


82 

T30 

_ 3 IGNa'l . 0~ • ~~ 


83 


OETERMal.O 


-_84JC_ 




85 C 

86 C 


TOJUST Ti’GN 6 FOE T E R MINA NT ” 

DUE TO' 

... 87 


DO 250 Isl.NMl 

r> 

88 


.IF(I-IPIVOTCI) )2 40 r 25 0.240 


89 

240 

SIGNs-SIGN 


-90 250 

CQNtINUE . . 


91 C 

92 


00 340 I a 1 # N 


.93 .. 

94 C 

— 

P»A(I,I) 


95 

260 

CONTINUfc 


96 


IFCR1 .GT.0A8SCP) )G0 TO 280 


97 


PaP*R2 


98 


ISCALEsISCALEM 


99 


GO TO 260_ .. 


100 C 




101 

280 

CONTINUE 


.102 


_IF(R2,LT,DA83(P) )G0 TO 290 


103 


PaP*R l 


104 


ISCALEaISCALE-1 


_LQ5 


GO TO 280 

• 

106 C 

107 

290 

DETERHrOETERM*P 


.L09.JCL 




109 

Too 

continue' 


110 


IF(R1 .GT.DABS(OETERM) )G0 TO 

320 

111 . 


0ETERWrOETERM*R2 


112 


ISCALE=ISCALE+1 


113 


GO TO 300 


1 1 4 C_ 




115 

320 

CONTINUE 


116 


IF(R2,LT.OA0S(DETERM) )G0 TO 

340 

.117. 


OETERM=OETEPM*«t 


118 


ISCALE=I SCALE-1 


119 

120 C. 


GO TO 320 


121 
122 C 

340 

CONTINUE 


123 


0ETERM=DETEHM*SIGN 


124 C 

125 


RETURN 

A- 111 


V 

I 


OETOl 
OETOl 
OETOO 
OE TO 
OE TO 
OETO 
DETOQ 
OETOl 
OETOl 
OETOO 
OETOl 
OETOl 
OETOO 
OETO'i 
OETO 
OETOO 
OETOO 
OETO 1 
OETO I 
OETOO 
OETO] 
OETO I 
OETOO 
OETOO 
OETO 
OETOv 
OETOO 
OETO 
DETO 
OETOO 
OETOl 
OETO 
OETOO 
OETOO 
OETOl 
OETO J 
OETOl 
OETOl 
OETO | 
OETO t 
OETO 
OETO 
OETO 
OETO 1 ( 
DETO I 
OETO* 


l 

I 



0 _ SUBROUTINE AXPX8 ( A ,U,M, NA , NU, 8 # V , N , N0 , NV , C , NC , EPS* , 

t 1£PS8# F AIL ) 

2 IMPLICIT REAL«8 (A-H,0-Z) 

3 DIMENSION _ .. 

a lA(NA,l),U(NU,l),8<NB,l),V(NV,l),C(NC,l) 

5 INTEGER 

.6 C .. . 

7 1 FAIL 

8 Ml a M+l 

__9 MMl a M«l .. 

10 ~ N 1 aN*l 

11 NM1 a N-l 

12 _C__IF REQUIRED, REDUCE A TO UPPER. REAL SCHUR FORM, 


! 

o 

222 


IF(EPSA ,LT , 0,) GO TO 35 

00 10 1*1 ,M .... _ _ 

16 


00 10 JaI,M 

17 


TEMP a A ( I , J ) 

L8. 


A(I.J) a A(J,I) .... __ _ .. 

19 


A ( J , I ) a TEMP 

20 

10 

CONTINUE 

21 


CALL HSHLOR(A,M,NA) ... 

22 


CALL BCKMLT( A,U,M,NA,NU) 

23 


I F ( mm i ,EQ. 0) GO TO 25 ~ 

__.24 


00 20 1st, MMl _ . 

25 


A (1+1,1) 3 A ( I , M l ) 

26 

20 

CONTINUE 



CALL SCHUR ( A, U,M,NA,NU,EPSA, FAIL) 

28 


IFCFAIL ,NE. 0) RETURN 

29 

25 

00 30 I s 1 , M 

. 30. 


DO 30 Js I , M _ _ .. 

31 


TEMP s A ( I , J ) 

32 


A ( I , J ) s A ( J , I ) 

33 _ 


A ( J, I ) s TEMP 

34 

30 

CONTINUE 


35 C 

36 C IF REOUIREO, REDUCE B TO UPPER REAL SCHUR FORM, 

37 C 

38 35 IFCEPS8 ,LT. 0.) GO TO 45 

39 CALL HSHLDRCB,N,N8) __ 

40 CALL BCKMLT(8,V,N,N8,NV) 

41 IFCNMl ,EQ, 0) GO TO 45 

42 DO 40 Ial,NMi 

43' B ( I ♦ 1 , I ) = 8(1, Nl) 

44 40 CONTINUE 

45 CALL. SCHUR ( 8 , V , N , NB , NV , EP38 , FAIL) 

46 FAIL * -FAIL 

47 IFCFAIL ,NE. 0) RETURN 


48 C_ 

49 C TRANSFORM C. 

50 C 

51 45 00 60 Jsl,N 

52 ’ DO 50 I si, M 

53 A { I , M 1 ) s 0 

54 DO 50 Kst,M 



55 

56 

57 

58 

59 

60 
61 
62 


A(I, Ml ) s A ( I » M l ) 
50 CON T I NIJF 

00 60 I s 1 , M 

C(IfJ) = A(I,md 

60 CONTINUE 

00 80 I s 1 , M 
DO 70 Js 1 , N 
8 ( N l , J ) = 0. 


♦ U(K,I)*C(K,J) 
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AXPOl 

AXPOI 

AXPOO 

AXPOl 

"AXPOl 

AXPOu 

AXPOO 

‘AXPOl 

AXPOP 

AXPOO 

AXPOP 

AXPOl 

AXPOO 

AXPO<L 

AXPOl 

AXPOtf 

AXPOO 

AXPOl 

AXPOl 

AXPOO 

AXPOfe 

AXPO'I 

AXPOO 

AXPOO 

AXPO'I 

"AXPO'I 

AXPOO 

AXPO'I 

AXPO'I 

AXPOO 

AXPOO. 

AXPO(| 

AXPOO* 

AXPOO 

A X P 0 ( | 

AXPO'I 

AXPOO 

AXPOCi 

AXPO'I 

AXPOO 

AXPOO 

AXPOf| 

A X P 0 C* 

‘ AXPOO. 
AXPOCI 
AXPO'I 
A X P 0 0 ‘ 
AXPOCU 
AXPO(| 
AXPOO® 
AXPOO' 
AXPO'I 
AXPO'I 
AXPOO' 
AXPOC| 
AXP0C| 
AXPOO™ 
AXPOO' 
AXPO(| 
AXPO'I 
AXP00‘ 
AXPO* 
AXPO'I 


63 

64 

65 
.66 
67 
60 
.69 

70 

71 


72... 

73 C 


74 C 
.75 C 

76 

77 

.7.0 _ 

79 

80 

01 

62 

03 

.84 


00 70 K*l,N 

9(Ml,J) * 9(N1,J) ♦ C(I»K)»VCK,J) 
70 CONTINUE 
00 90 J«1,N 

C(I,J) * 8 ( N l » J ) 

80 CONTINUE 

30LVE~" THE TRANSFORMED SYSTEM, 

CALL SHRSLV(A,B,C,M,_N,NA,NB,NCJ 

TRANSFORM C BACK TO THE SOLUTION, 


00 100 J*1#N 
00 90 I»1,M 

A(I,Mt ) 3 0, ; „ 

00 90 Ksi,M 

A ( I #M1 ) 3 A(I,Mt) ♦ Ua,K)*C(K,JJ 

_.90_ CONTINUE . 

00 100 Ist#M 

C(!#J) * A(I,MI) 

J.OO.CONJINUE 

95 00 120 Isl,M 

86 00 110 Jal'N 

.87 8(N1,J) 3 0, . 

06 00 110 K s 1 # N 

89 B(N1,J) 3 0 (N1 « J ) ♦ C(I,K)*V(J,K) 

90 LiO. _ . CONTINUE . ... ... 

91 DO 120 J31,N 

92 C(I,J) * 9(N1,J) 

93 ,_120._ CONTINUE 

94 RETURN 

95 END 
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1 ...o _ 


SUBROUTINE 3HRSLV(A,9,C,M,N,NA,N0 ? NC) 

8MR0< 

1 t 


IMPLICIT PEAL** (A-H,0-Z) 

SHRO 1 ” 

1 2 


DIMENSION 

SHRO' 

. 3 


1A(NA,1),0CN9,1),C(NC,1) 

SMROf 

1 4 


INTEGER 

~ SHRO f 

1 5 


l OK , DL 

SHRO r 

6 . 


COMMON /SLVBL* /T(5,5),P(5),N3Y3 

SHRO r 

S 7 


L « 1 

SHROO 

j 6 

10 

UMi s L«1 

SHROC 

9 


. .OL » l 

SHROC 

1 10 


IF (L .60. N) GO TO 15 

' SHROO 

1 11 


IFC9(LM,L) .ME. 0.) OL s 2 

SHRO'' 

\ 12 - 

... 15 

LL ■ L*OL-l _. . . 

SHROC 

13 


IF CL .EQ. 1) GO TO 30 

SHROC 

1 14 


00 20 J*L,LL 

SHROC 

i 1 5 


00 20 I«1.M 

SHROC 

16 


00 20 1831, LM1 

SHROC 

f 17 


CCI,J) 3 CCI,J) - CCX* XBJ*BCI8'J) 

SHROC 


20 

CONTINUE 

SHROC 

19 

30 

K 3 1 

SHROC 

, 20 

40 

KMl s K-l 

SHROC 

.21. 


OK 8 1 . _ 

SHROC 

i 22 


IF (K .60, M) GO TO 45 

SHROC 

2 3 


XF(A(K,Kfl) .Mg, 0.) OK a 2 

SHROC 

.29 . 

45 

KK 8 K+OK-t 

SHROC 

25 


IF (K .£0, 1) GO TO 60 

SHROC 

26 


00 50 I sK , KK 

SHROC 

27.. 


. _ 00 50 JsL,LL 

JHROO 

4 20 


00 50 JA=l,KMi 

SHROC 

1 29 


CCI,J) s CCI.J) - A(I»JA)*C(JA,J) 

SHROC 

30 

-.50 

CONTINUE 

SHROO 

! 31 

60 

IF (DL .EO. 2) GO TO 80 

SHROO 

1 32 


IFCDK .EQ. 2) GO TO 70 

SHROO 

-.33 


_ TCI, 1) * A (K , K ) ♦ B (L , L ) 

SHROO 

1 54 


IFCT(t,l) .EQ. 0.) STOP 

SHROO 

55 


CCK,U s CCK,L)/TCl,n 

SHROO 

36 


GO TO 100 

SHROC 

l 17 

70 

T ( 1 , 1 ) s A (K , K ) ♦ 9(1, L) 

SHROO 

38 


TCI, 2) * A ( K , KK ) 

SHROO 

J..39 


TC2, 1 ) 3_A(kk,K). 

SHROC 

ao 


T (2, 21 = A(KK,KK) ♦ 9 (L , L ) 

SHROO 

1 41 


PCt) s CCK,L) 

SHROO 

1 92- 


P (2) 3 C(KK,L) 

SHROO 

43 


NS YS s 2 

SHROO 

i aa 


CALL SYSSLV 

SHROC 

I 45. _ 


_ _ C(K,L) * PCI) . . . 

SHROO 

1 at 


CCKK,L) s P ( 2 ) 

SHROO 

• a7 


GO TO 100 

SHROO 

.1.40 . 

-00. 

IF(DK .EQ. 2) GC TO 90 

SHROO 

1 «9 


rci,t) * A ( K , K ) ♦ B(L,L) 

SHROO 

50 


TCI, 2) = 9 (LL,L) 

SHROO 

■ 51 


T(2,1) = B CL , LL) 

SHROO 

I 52 


T ( 2, 2 ) s A ( K , K ) ♦ B (LL , LL ) 

SHROO 

*53 


PCI) s C ( K ,L ) 

SHPOO 

-5« 


P ( 2 ) s C (K , LL ) 

SHROO 

I 55 


NSYS s 2 

SHROO 

*56 


CALL SYSSLV 

SHROO 

. 57. 


C (K , L ) = PCI) 

SHROO 

I 58 


CCK,LL) s P (2) 

SHROO 

159 


GO TO 100 

SHROO 

60 

90 

T(1 ,1 ) * A ( K , K ) ♦ 9 CL , l ) 

SHROO 

■ 61 


T(l, 2) = A ( K , K K ) A U5 

SHROC 

I 62 


T ( 1 , 3 ) = B (LL , L ) 

SHROO 



63 

_ 7(1, tt) ■ o. 



6a 

T(2#l) ■ A(KK,K) 



65 

T(2,2> » A(KK,KK) 

+ 

8(L*l) 

66 

7(2*3) «. 0. . 



67 

7(2, a) • 7(1*3) 



68 

7(3*1) * 8(1, LL) 



66 

7(3*2) . * 0. 



70 

7(3*3) » A(«,K) ♦ 

8(LL*LL) 

71 

T(3*a) » 7(1,2) 



.72. 

T(a, l ). • o. 



73 

7(a,2) « 7(3*1) 



7a 

7(4,3) » 7(2* 1 3 



_._75 

T(a*a) 3 A (KK * KK ) 

♦ 

8(LL*LL) 

76 

P(l) « C(K # L) 



77 

9(2) » C(KK,L) 



78. 

P(3) 3 C(K,LL) 



79 

P(a) o C (KK* tL) 



80 

ns ys s a 



8 1_ 

CALL SYSSLV 



82 

C(K*L) » p C 1 i 



83 

C(KK,L) 3 P(2) 



ea. 

C(K,LU » P(3) 



85 

C(KK # LL) 3 P(a) 



86 

100 K 3 K t OK 


T> 

.87 

. IP (K .IE. M) 60 70 

ao 


88 

L « l ♦ OL 



89 

IP(L .LE. N) 60 70 10 



.90 

RE7UPN 



9i 

6N0 




SHROf 

3HR0C 

SMRO r 

3HR0C 

3HR0< 

3MR0C 

8MR0 r 

3MRQ0 

SMROO 

3HR00 

SMROO 

SHROC 

SMROO 

3HROO 

SMROO 

SMROO 

SMROO 

3MR00 

SMROO 

SMROO 

3HR00 

3HR00 

SMROO 

SMROO 

SMROO 

SMROO 

SMROO 

SMROO 

SMROO 


I 

I 


0 SUBROUTINE ATXPX A ( A ,U , C ,N, NA,NU, NC # EPS , F AIL ) 

1 IMPLICIT REAL*« (A-H,0-Z> 

2 DIMENSION 

_3 U<NA,t),U<NU,l),C<NC.n ....... . . 

4 INTEGER 

5 l FAIL 

6 NJ a NM __ ___ . 

7 N M l » N-l 
S C 

9.C IF REQUIRED, REDUCE A TO .LOWER _R6*L SCHUR FORM, 

10 C 

11 IF (EPS ,LT, 0.) GO TO 15 

... ii CALL H9HL0R(A,N,NA) 

15 CALL BCKMLT(A,U,N,NA,NU> 

14 DO 10 I«1,NM1 

is *(iM,n..«ja»Ni) 

16 10 CONTINUE 

17 CALL 3CHUR(A,U,N,NA,NU, EPS, FAIL) 

_1.S IE.( FAIL .NE.JJ) .RETURN . ._ 


19 

C 




20 C 
21_C 

TRANSFORM C. 


22 


15 

00 20 I«1,N 


25 



C(I#I)»C(I,I)/2. 


.24 


_ 20.. CONTINUE ..... 

\r 

25 



00 40 I * 1 # N 


26 



DO 30 J* 1 , N 


„27 



A(Nl,J) * 0. 


26 



on 50 KsI,N 


29 



A(Nt'J) • A(N1,J) ♦ 

C(I,K)*U(K,J) 

.50 


30 

CONTINUE 


51 



DO 40 Jal,N 


52 



C(I,J) * A(N1,J) 


55 


_ 40 

CONTINUE 


54 



00 60 Ja 1 » N 


55 



00 50 I * 1 , N 


_36 



A ( I * N t ) a 0, 


57 



00 50 Ka|,N 


58 



A(I,N1) > A(I,N1) ♦ 

u(k, i)*cck, j) 

_39 


.50 

CONTINUE 


40 



00 60 Isl,N 


41 



CCI,J) * A ( I , N l ) 


.42. 


. -60. 

CONTINUE 


45 



DO 70 Isl,N 


44 



DO 70 JaI,N 


45 



C(I,J) » C(I,J) ♦ CCJ, 

i) 

46 



_ C(J,Ii a C(I,J) 


47 


70 

CONTINUE 


46 

c 




1 49 

c 

SOLVE THE TRANSFORMED SYSTEM, 


50 

c 




|51 



CALL SYMSLV(A,C#N,NA,NC) 


1 52 

c 




53 

c 

TRANSFORM C BACK TO THE SOLUTION, 

■54 

c 




155 



DO 80 Ial,N 


*56 



CCI,n 8 C ( I , I ) /2* 


-57 


80 

CONTINUE 


■56 



DO 100 1*1 # N 


159 



DO 90 Jal,N 


60 



A ( N 1 , J ) SO, 


|>i 



DO 90 Ks I , N 


?2 



A(N1,J) a A C N t » J ) ♦ 

C(I,K)*UCJ,K) 


ATXO> 
ATXO r 
A TXO r 
ATXOf 1 
”* ATXO f : 
ATXOr U 
ATXO r SI 

ATXO r jl 
ATXO r |i 

__ kJt ° r i 
ATXOC 
ATXOf I 
ATXOr It 
ATXOC ji 
ATXOf i 
ATXOC !; 
ATXOO 1! 
ATXOC >'■ 
ATXOC H 
'ATXOC ; 
ATXOO 

___ _ ATXOO 1 1 
ATXOC ji 
ATXOO \\ 
ATXOO j| 
"ATXOO ] 
ATXOO | 
ATXOO | 

ATXOO j 

ATXOC 

ATXOO 

ATXOO 

ATXOO 

ATXOO j 

ATXOO j 

ATXOO 

ATXOO I 

ATXOO 

ATXOO i 

ATXOO 

ATXOO j 

ATXOO 

ATXOO 

ATXOO 

ATXOO 

ATXOO 

ATXOO. 

ATXOO 

ATXOO 

ATXOO 

ATXOO* 

ATXOO* 

ATXOO* 

ATXOO* 

ATXOO* 

ATXOO* 

ATXOO* 

ATXOO* 

ATXOO* 

ATXOOf 

a r xoo> 
ATXOO* 
ATXOO* 



A 1 1 n 


90 CONTINUE 

DO 100 J*1#N 

C(I,J) • A<Nl,J) 

100 CONTINUE . _ 

00 120 J«1#N 

oo no i • t # n 

A ( I » N 1 ) ■ 0. 

00 110 Kal,N 

A(I,N1) a A(I,N1) ♦ U( I ,K )*C («# J) 
110 CONTINUE _ _ _ 

00 120 X * t # N 

C(I#J> ■ A ( I » Nl ) 

120 CONTINUE . . t 

00 130 I»1»N 
00 130 J*X # N 

... CCX»J) J» <-_C(J,I> _ 

C(J#I) • CCI#J) 

130 CONTINUE 

RETURN 

ENO 


ATXOf 
A TXO f 
ATXO r 
ATXOr 
'ATXOC 
ATXOC 
ATX 00 
ATXOC 
ATXOC 
ATXOC 
‘ATXOC 
ATXOC 
ATXOC 
ATXOC 
ATXOC 
ATXOC 
ATXOC 
ATXOC 
ATXOC 
' ATXOC 



w 


0 


SUBROUTINE 3YM3LV(A,C,N,NA,NC> 

SYW 

i 


IMPLICIT »C4L*8 (4-M.O-Z) 

SYMr 

2 


OIMCNSION 

SYM( 

3 


l4<NA,t),CCNC,l) 

SYMr 

a 


INTEGER 

SYMC 

5 


t DK,OL 

SYMC 

6 


C0MM0N/SLV8LK/T(5»5)#P(5)#N8YS 

SYMC 

7 


L ■ 1 

SYMC 

9 

10 

OL * t 

SYMO 

. 9 


__ IF(L .EG. N) GO TO 2^ ... _ 

SYMC 

10 


IF(A(LM,L) .NE. 0.) OL • 2 

SYMO 

11 

20 

LL » L^OL-1 

SYMO 

_.l* 


■ L .. ... _ .... 

SYMO 

13 

30 

KMt ■ K*1 

SYMO 

14 


OK ■ 1 

9YM0 

_t5. 

• 

IF (K .60. N) GO TO 35 

SYMO 

16 


IF (A(K+1 ,K) ,NE. 0.) OK ■ 2 

SYMO 

17 

35 

KK ■ K+DK»l 

SYMO 

19. 


IF(K ...EG, LJ._G0_t5L.45 

SYMO 

19 


00 40 I«K,KK 

'SVMO 

20 


00 40 J«L#LL 

SYMO 

_2L_ 


DO 40 IAsL.KMl 

SYMO 

22 


C(I,J) « C(I#J> - A(IA,I)*C(IA,J) 

SYMOi 

23 

40 

CONTINUE 

SYMO' 

_24 

45 

IF(DL. .EG. 2) GO TO 60 

SYMO' 

25 


IF (OK .EO. 2 ) 60 TO 50 

SYMO' 

26 


T( 1 # t ) « A (K #K ) ♦ A (L ,L ) 

9YM0' 

.27.. 


__ IF(T( 1# 1 ) •6Q._0,L STOP _ . 

SYMOf 

28 


C(K # L) * C(K,L)/T(1,1) 

SYMOf 

29 


GO TO 90 

SYMOC 

30. 

. .50 

T ( 1 • 1 3 » A(K,K) ♦ A(L,L) 

SYMOf 

31 


TCI, 2) * A (KK , K ) 

SYMOC 

32 


T (2, 1 ) 8 A (K , KK ) 

SYMQr 

.33 


. T(2,2) * A(KK,KK) ♦ A(L,L) 

SYMOC 

3« 


PCI) * C(K,L) 

SYMOC 

35 


P(2) * C(KK,L) 

SYMOC 

36 


NSYS 82 

SYMOC 

37 


CALL SYSSLV 

SYMOC 

36 


C(K,L) a PCI) 

SYMOC 

39 


_ _C(KK,(.) 8 P(2) . _ 

SYMOO 

40 


GO TO 90 

3YMO0 

41 

60 

IF (OK ,EQ . 2) GO TO 70 

SYMOO 

_42. 


T(l,n„s A(K,K)_^_A(L,.L) . _ . 

SYMOO 

43 


T ( 1 , 2) a A(LL»L) 

SYMOO 

! 44 


T(2,l) * A(L,LL) 

SYMOO 

1.45 


T(2,2) s A ( K , K } ♦ A(LL,LL) 

SYMOO 

’ 46 


PCI) 3 C ( K » L ) 

SYMOO 

. a7 


PCS) * C(K,LL) 

SYMOO 

1 48 


NSYS s 2 

SYMOO 

1 49 


CALL SYSSLV 

SYMOO 

50 


C (K »L) = P(1J 

SYMOO 

151 


C(K,LL) = PC 2) . . 

SYMOO 

152 


GO TO 90 

SYMOC 

*53 

70 

IF (K ,NE. L) GO TO 80 

SYMOO 

-54 


TU,1) * A(L,L) 

SYMOO 

■ 55 


TCI, 2) s A (LL ,L) 

SYMOO 1 

■56 


T ( 1 , 3) * o. 

SYMOO' 

57 


T(2,t) s A(L,LL> 

SYMOO 1 

I 58 


T (2,2) s A (L , L ) * A (LL,LL ) 

SYM00‘ 

■59 


T (2, 3) * T ( 1 , 2 ) 

SYMOO* 

60 


T(3, 1 ) * 0. 

SYMOO* 

161 


T ( 3 * 2 ) * TC2,1) A— 119 

SYMOO* 

fa 


T ( 3, 3 ) = A (LL , LL ) 

SYMOO*- 


63 


PCI) * CCL,L)/2. 

64 


P ( 2 ) a CCLL,L) 

65 


P ( 3) » C (LL,LL) /2* 

66. 


MSY9 s 3 

67 


call sysslv 

66 


C (L,L) * PCI) 

. 69 


CCLL,L) * PC2) _ . . 

70 


C(L,LL) = P (2 ) 

71 


CCLL,LL) a P C 3) 

72 .. _ 


GO TO 90 

73 

80 

T(t,l) * ACK,K) ♦ A(L,L) 

74 


TCI, 2) a A(KK,K) 

75 


_T ( 1 , 3 ) » A(LL#L) ... 

76 


T ( 1 , 4 ) a 0. 

77 


TC2,1) » A (K , KK ) 

28 — 


T.(2»2)_ 9 A(KK.^K)..„t_A.?L,.U .. 

79 


T (2# 3) a 0. 

80 


T (2,4) a TCI, 3) 

01 


TC3.1) a A(L,LL) ... . 

”82 


T(3,2) » 0. 

83 


T(3,3) » A (K , K ) f A (LL,LL) 

JBU_ 


T ( 3, 4 ) a TCI, 2) 

85 


T(4,l) a 0 , 

86 


T (4 , 2 ) * T ( 3 , l ) 

...87 


T (4,3) * TC2, 1) ? .... 

88 


T ( 4 , 4 ) 8 A (KK , KK ) ♦ A (LL,LL) 

89 


PCI) a C (K ,L) 

..90 


PC2) a C(KK,L) _ _ 

91 


P(3) * C (K ,LL) 

92 


P(4) s C (KK r tL) 

.93 . . 


NSYS a 4 

94 


CALL SYSSLV 

95 


C(K,L) « PCI) 

96 


CCKK,l ) s PC2) 

97 


C ( K ' , LL ) a P C 3) 

98 


C(KK,LL) a P C 4 ) 

99 

90.. 

K s K «• OK 

100 


IF (K ,LE. N ) GO TO 30 

101 


LDL a L ♦ DL 

102 


IFCLOL ,GT. N) RETURN 

103 


'DO 120 JsLOL, N 

104 


DO 100 IaL,LL 

;c5 


CCI,J) a CCJ,I) 

106 

100 

CONTINUE 

107 


DO 120 IaJ,N 

108 


DO 110 KaL,LL 

109 


C(I,J) a C(I,J) • C C I ,K)*A(K,J) 

t 10 

no 

CONTINUE 

.11 


CCJ,I) a CCI,J) 

.12 

120 

CONTINUE 

113 


L = LDL 

14 


GO TO 10 

15 


END 


- A(K,n*c(K'#jy 


SYMO 

SYMO 

SYMO 

SYMO 

SYMO 

SYMO 

SYMO 

SYMO 

SYMO 

SYMO 

SYMO' 

SYMO 

SYMO 

SYMO' 

SYMO' 

SYMO < 

"SYMOf 

SYMO( 

SYMOf 

SYMO <■ 
SYMOf 
SYMOC 
SYMOC 
SYMOC 
SYMOC 
"SYMOC 
SYMOC 
SYMOC 
“'SYMOC 
SYMOC 
SYMOC 
SYMOC 
SYMOC 
SYMOC 
SYMOC 
SYMOC 
SYMOl 
SYMO! 
SYMOl 
SYMOl 
SYMOl 
SYMOl 
SYMOl 
SYMOl 
SYMOl 
__ SYMOl 
" SYMOl 
SYMOl 
SYMOl 
SYMOl 
SYMOl 
SYMOl 
SY’lQl 


i 

1 


A-120 


0 


SUBROUTINE HSHLDRC A,N,NA) 

HSHO 

t 


IMPLICIT REAL*8 (A-H,0-Z) 

HSHO 

a 


DIMENSION A(MA,1J 

HSHO 

. 3 


.realms max 

HSHO 

a C 



HSHO 

5 


NM2 a N-2 

HSHO' 

. .6 


Nt * N ♦ t 

HSHO f 

7 


IF ( N ,EQ, 1) RETURN 

HSHO f 

8 


IF ( N ,GT. 2) GO TO 5 

HSHO r 

9 


_A(l»Nl) b A(2,l) 

HSHO C 

10 


RETURN 

HSHO f 

11 

5 

DO 80 Lai, MM2 

HSHO f 

J2 


LI * L*1 

HSHOC 

13 


MAX a 0. 

HSHO 1 ' 

14 


DO 10 I sL 1 , N 

HSHO f 

15 


MAX a 0MAXICMAX,0A83(A(I,L))) 

HSHOC 

16 

10 

CONTINUE 

HSHOC 

17 


IF (MAX .NE. 0.) GO TO 20 

HSHO c 

18 


. A ( L » N t ) a 0. 

HSHOC 

19 


A(Nt,L) b 0, 

HSHOC 

20 


GO TO 80 

HSHOC 

„21 

.20 

SUM s 0. 

HSHOC 

22 


00 30 IaLl,N 

HSHOC 

23 


A ( I , L ) a A(I, LJ/MAX 

HSHOC 

24 


SUM s SUM + A(I,L)**2 ~ 

HSHOC 

25 

30 

CONTINUE 

' HSHOfl 

26 


3 a DSIGN(DSQPT(SUM),ACLl,Ln 

t SHOO 

. 27 


A ( L , N 1 ) a .MAX*S 

HSHOC 

28 


A ( L 1 » L ) aS* ACL1,L) 

HSHOO 

29 


A ( N 1 , L ) a S*A(L1 ,L) 

HSHO 0 

. 30 


DO 50 JaLl,N 

HSHOO 

31 


SUM sO. 

HSHOO 

32 


00 40 I *L 1 , N 

HSHOO 

_ 33 


SUM s SUM + A(I,L)*A(I, J) 

HSHOO 

34 

40 

CONTINUE 

HSHOO 

55 


• P a SUM/A(N1,L) 

HSHOO 

. 36 


00 50 I =H , N 

HSHOO 

37 


A ( I , J ) a A ( I , J ) - A(I,L)*P 

HSHOO 

38 

SO 

CONTINUE 

HSHOO 

39 


00 70 1=1, N 

HSHOO 

40 


sum s o. 

' 'HSHOO 

41 


00 60 J=L1,N 

HSHOO 

42 


SUM s SUM 4- A(I,J)*A(J,L) 

HSHOO 

43 

60 

CONTINUE 

HSHOO 

44 


P a SUM/ A ( N 1 , L ) 

HSHOO 

45 


00 70 JaLi,N 

HSHOO 

46 


A ( I , J J a A (I , J 1 - P*A(j,L) 

. HSHOO 

4/ 

70 

CONTINUE 

HSHOO 

48 

90 

CONTINUE 

HSHOO 

49 


A(M— l,Nt) a A(N,N-1) 

HSHOO 

50 


RETURN 

HSHOO 

51 

- _ 

END 

HSHOO 
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17 


SUBROUTINE 8CKMLT(A,U,N,NA,NU) 
IMPLICIT REAL** (A-M,0-Z) 
DIMENSION 

UC f l4»l)».li(NU,l) 

Ni s N*1 

MM I 3 N-l __ 

N«2 s N»2 
U(N,N) s 1, 

LEt.NPl .60. 0). RETURN 

U(NM1,N) s 0. 

U(N,NMl) s 0. 

_...UCNM1,NMI) si. 

IF (NMg ,EO. 0) RETURN 
00 «0 LL»1 »N V 2 

L. s NM2-LL4-1 

LI s L*i 

IF(A(Ni,L) ,EQ. 0.) GO TO 25 


— 1.8 QO 20 JsLL*N 

IR SUM s 0. 

20 00 10 I 3 Ll »N 

_ 2.1 SUM s SUM ♦_A(X,L)*U(I'J) 

22 10 CONTINUE 

23 P s SUM/ A (N l ; L ) 

24 00 20 . I =L 1 » N _ Q 

25 UCI,J) s U(I,J) - A ( I #L) *P 

26 20 CONTINUE 

—27 .25 00 30 _IrLl,N_ 

28 U(I,L) = 0. 

2R UfL r I ) = 0. 

„ 30 30 CONTINUE 

31 UU,L) si. 

32 «0 CONTINUE 

33 RETURN _ _ ’ 

3a END 


8C* r 

acxr 

BCKT 
BCK r 
"BCKC 
BCK r 
BCKC 
BCKC 
8CKC 
BCKC 
' BCKC 
BCKO 
BCKO 
BCKO 
BCKO 

BCKO 

' BCKO 
BCKO 

BCKO 

BCKO 

BCKO 

BCKO 

BCKO 

BCKO 

BCKO 

BCKO 

BCKO 

___ BCKO 

BCKO 
BCKO 
_ BCKO 
" BCKO 
BCKO 
_ BCKO' 
BCKO 


0 

SUBROUTINE SCHUR ( H, U , NN , NH, NU # EPS , F A II ) 

SC 

1 

IMPLICIT REAL*8 (A-H,Q-Z) 

SC 

2 

DIMENSION 

sc 

3 

1H(NH, t) # U(NU# 1) 

sc 

a 

integer 

" ' sc 

5 

1 fail 

sc 

6 

LOGICAL 

sc 

7 

1LAST 

SC 

8 

N s NN 

sc 

9 

MN a 0. 

sc 

10 

00 20 Iei,N 

so 

11 

JL a MAX0(1,I-1) 

so 

.12 

RSUM a 0. 

so 

13 

00 10 JaJL,N 

so 

Itt 

RSUM s RSUM ♦ DAB3(H(I,J)) 

sc^ 

15 

_ .10 CONTINUE 

sc^ 

16 

MN a DMAX1 (HN.RSUM) 

SCh 

17 

20 CONTINUE 

SCH 

18 

TEST a EPS*HN 

SCH 

19 

IF (HN ,EQ, 0.) GO TO 230 

“ SCH 

20 

30 IF(N .LE. 1) GO TO 230 

SCM 

21 

ITS a 0__ 

SCH 

22 

NA a N-i 

SCH 

23 

N M 2 a N»2 

SCH 

2_a 

ao DO 50 LLs2,N 5* 

SCH 

25 

L = N-LL+2 

SCH 

26 

IF(OA03(H(L,L-1 ) ) .LE, TEST) GO TO 60 

SCH. 

_.27_ 

50 CONTINUE 

SCH. 

28 

L 3 1 

SCM( 

29 

GO TO 70 

SCH- 

30 . 

60 H(L,L-1) s 0. 

SCH r 

31 

70 IF (L ,LT. NA) GO TO 72 

SCHr 

32 

N r L-l 

SCHr 

_33 . _ 

GO TO 30 

SCH.' 

3a 

72 X a H(N,N)/HN 

SCHr 

35 

Y a H(MA f NA)/HN 

SCH^ 

36 

R a (H(N,NA)/HN)*(H(NA,N)/HN) 

SCH C 

37 

IFCITS .LT. 30) GO TO 75 

SCHO 

38 

FAIL a N 

SCHO 

„39 

return 

SCHO 

ao 

75 IFdTS.EO.lO .OR'.' ITS. EQ. 20) GO TO 80 

SCHO 

ai 

S a X ♦ Y 

SCHO 

a 2 _ . 

Y a X * Y - R 

SCHO 

a3 

GO TO 90 

SCHO 

ua 

80 Y a (DABS (H ( N , NA ) ) ♦ 0 A03 ( H (NA , NM2 ) ) ) /HN 

SCHO 

as 

3 a 1,5*Y 

SCHO 

06 

Y a Y**2 

SCHO 

a7 

90 ITS s ITS + 1 

SCHO 

a8 

00 100 MMsL,NM2 

SCHO 

' a9 

M s NM2-MM+L 

SCHO 

50 

X a H(M,M)/HN 

SCHO' 

SI 

R a H(M+1,M)/HN 

SCHOr 

52 

Z a H(**M ,M+1 ) /HN 

SCHO r 

53 

P a X*(X-S) ♦ Y ♦ R* (H(M,M*i ) /HN) 

SCHO' 

5a 

0 a R*(X*Z-S) 

3CH0C 

I 55 

R a R*(H(m*2,m*d/hN) 

SCHO r 

1 56 

* a 0 AQS (P ) + OABS(Q) + OABS(R) 

SCHOO 

57 

P a P/W 

SCHO r 

1 50 

Q a O/W ' ~ 

SC HOC 

1 59 

R a R/W 

SCHOC 

1 60 

IF(M .EQ. L) Gn TO HO 

SCHOO 

61 

IF(DA8S(H(M,m-i ) )*(DA9S(Q)*DARS(») ) .LE. 0 ABS ( P ) *TEST ) 

SCHOO 

62 

1 GO TO no A-123 

S C H 0 ft 



i 

i 


63 _ l 00 CONTINUE SCHOr 


64 

110 

M2 3 

65 


M3 3 M+3 

. 66 


DO 120 

67 


HC I # 1-2) s 0. 

68 

120 

CONTINUE 

69. 



IFC*3 ,GT . N) GO TO 140 

70 


DO 130 IsMJ,N 

7 1 


H(7»I*3) » 0. 

. 72 

130 

CONTINUE 

73 

140 

00 22 0 KsM,NA 

74 


LAST 8 K.EO.NA 

— 7.5 



Iff CK ,EG, M) GO TO 150 

76 


P 3 H(K,K-t) 

77 


0 3 H(KM*K-1) 

— 78- 

. . _ 

0. ..... .. _ 

79 


IFC. NOT, LAST) R a H(K+2,K-1) 

80 


X s DABS (P ) ♦ DABS ( Q ) ♦ DABS(P) 

_B1_ 


IF C X .E0,_0.) G0_L0 220 

82 


P 3 P/X 

83 


Q a Q/X 

-84. 

. ^ 

R.3. P/X 

85 

150 

S 3 DSQRT(P**2 ♦ Q**2 ♦ R**2) 

86 


IF (P ,LT, 0.) 3 a -S 

-87 

. 

.. . IF (K ,N£, M) H(K r K-l) s -S«* 

88 


IF(K.EQ,M .AND, L.NE.M) H(K,K-l) 

89 


P s P «■ S 

-90 



X 3 P/S 

91 


Y s 0/S 

92 


Z 3 R/S 

93 


Q 3 Q/P 

94 


R s R/P 

95 


00 170 JsK,NN 

- 96. 


. P s H(*,J) ♦ Q*H (K + 1 # J ) 

97 


IF (L AST ) GO TO 160 

98 


P s P ♦ R*H(K*2,J) 

.99 


H(Kf2,J) s H(K*2,J) . P* Z 

100 

160 

H (K ♦ 1 , J ) s H(K+1 » J) • P*Y 

101 


H(K,J) s H(K,J) - P*X 

-1.02.. 

_ 17.0. 

.. CONTINUE 

103 


J s MIN0~CK+3,N) 

104 


DO 190 Isl,J 

105 


P = X *H ( I f K ) ♦ Y*H(I,K + n 

106 


IF (LAST) GO TO 180 

107 


P s P ♦ Z*H(I,K*2) 

108 


H(I,K*2) 3 H ( I , K +2) - P*R 

109 

180 

H(I,K+1) s H(I,K + 1) - P*Q ~ 

110 


H(I,K) s H ( I # K ) - P 

lit 

190 

CONTINUE 

112 


DO 210 I 3 1 , |\|N 

113 


P 3 X*U(I,K) ♦ Y*U(I#K+1) 

! 114 _ 


IF (LAST) GO TO 200 

1115 


P = P ♦ Z*U(I#Kf2) 

116 


U ( I f K +2 ) 3 U(I,Kt2) - P*R 

1117 

200 

U(I,K + 1 ) s U( I,Kf 1 } - P*Q 

1118 


U ( I , K ) 3 U(I,K) - P 

119 

210 

CONTINUE 

-120 

_ 220 

CONTINUE 

Il21 


GO TO 40 

*122 

230 

FAIL 3 0 

123 


RETURN a -] on 

|124 


END 


SCHrtr 

SCHftf 

3CH0 r 

SCMO'- 

SCHOf 

SCHOr 

SCHOC 

SCHOr 

_ SCHOC 

SCHOC 

SCHOC 

_ SCHOC 

SCHOC 

SCHOC 

SCHOC 

SCHOC 

SCHOC 

SCHOC 

“SCHOC 

SCHOC 

SCHOC 

SCHOC 

SCHOC 

... . _ SCHOC 

= -HCK,K-1 ) SCHOC 

SCHOC 

SCHOO 

SCHOC 

SCHOC 
SCHOC 
SCHOO 
SCHOC 
SCHOC 
SCHOO 
SCHOC 
SCHO 1 
SCH01 
SCHO 1 

SCHO 1 

" " “ “ SCHO! 

SCHO ! 
SCHO 1 
SCHO 1 
SCHO 1 

SCHO 1 

SCHO 1 
SCHO 1 
SCHO 1 
SCHO 1 
SCHO! 
SCH01 
SCHO 1 
SCHO! 
SCHO 1 
SCHO! 
SCHO 1 
SCHO! 
SCHO! 
SCHO 1 
SCHO 1 
SCHO! 



c 

c 


0 

1 

2 
.3 
a 

5 

6 

7 

8 
9 

10 

11 

12 

13 

ltt 

15 

16 

17 

18 _ 

19 

20 

21 

22 

23 

2a __ 

25 

26 

27 __ 

28 

29 

30 

31 

32 

33 . 
3a 

35 

36 

37 
30 

39 ... 

ao 

at c 
a 2_C 
a3 C 
aa 

as 

a6 

a7 

a8 „ 

U9 

50 

51 

52 

53 

sa 

55 

56 

57 

58 

59 

60 
61 


SUBROUTINE SVSSLV 
IMPLICIT R£AL*8 <A-H,0-Z) 


C0MM0N/SLV8L«/A(S,5) ,8(5),N 
REAL*6 MAX 
l NMl s N - l 
. Nt s N+l 


COMPUTE THE LO FACTORIZATION OF A, 

. .*0 80 K*l,N 

KMl s K-l 

IF(K.EQ.l) GO TO 20 

OQ 10 I*K f N 

00 10 J* l # KM l 


30 


A(I,K) « A(I,K) • A(I,J)*A(J,K) 

10 _ CONTINUE ._ 

20 IF(K.EO.N) GO TO 100 
KP1 a K ♦ 1 

MAX a 0A8S ( A (K ,K ) ) 

INTR a K 
00 30 IsKP 1 * N 
_ AA a 0AfJ3(A(I,K) ) 

IF ( A A .LE* MAX) GO TO 30 
MAX a AA m 

INTR a I 
CONTINUE 

IF (MAX ,EQ. 0.) STOP 
A(N1,K) = INTR 
IF ( INTR .EG. *) GO TO 50 
DO AO Jal,N 

TEMP a A(K,J) 

A (K # J) s A(INTR,J) 

A ( INTR# J ) 3 TEMP 
CONTINUE 
DO 80 JsKPl,N 

IF(K.EQ.l) GO TO 70 

00 60 Is), KMl 

A(K,J) s A(K,J) - A(K,I)*A(l,J) 
CONTINUE 

A(K,J) s A(K, J)/A(K,K) _ 


UQ 

50 


60 
70. 

80 CONTINUE 


.INTERCHANGE THE COMPONENTS ..OF B, 


100 00 110 Jsl,flMl 

INTR 3 A (N 1 * J ) 

IF ( INTR .EQ. J) GO TO 110 
TEMP s 8 ( J ) 
fl ( J ) s B(INTR) 

8 ( INTR ) s TEMP 
110 CONTINUE 


C. 

C 

c 


SOLVE LX s 8. 


200 B(l) = 8(1)/A(1,1) 

DO 220 I=2#N 
IM1 s 1-1 
DO 210 J=1,IM1 

8(1) s 6(1) - A(I#J)*8(J) 
210 CONTINUE 

8(1) = B(I)/A(I,I) 

220 CONTINUE A-125 


3 T 3 n 

SY30 
S Y SO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
' SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
*"SYS0 
SYSO 
SYSO 
“ SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO 
SYSO' 
SYSO' 
SYSO 
SYSO! 
SYSO' 
SYSO' 
SYSOf 
SYSO' 

' SYSOi 
SYSO! 
S YSO f 
"SYSO! 
SYSO 
SYSO! 
SYSO' 
SYSO' 
SYSO 
‘ SYSO' 
SYSO! 
SYSO 
SYSO 
SYSO 
SYSO' 
SYSOi 
SYSOr 
SYSOr 
SYSO' 




0 SUBROUTINE GAU3EL (MAX, N, A, NR, B, IERP) 

1 I mRlicit realms (a-m,o^T5 

2 C FUNCTION • COMPUTES SOLUTION TO A SET OF SIMULTANEOUS 

3 C LINEAR EQUATIONS (DOES NOT GIVE PIVOT OR 


4 C 

5 C 

6 C 


USAGE 

PARAMETERS 


MAX 


iJETERMiNAMY OAfTT 
• CALL GAUSEL (MAX,N, A, NR, 8, IERR) 
- MAXIMUM ROW OIMENSION OF B 


GAU 

"GTAll 

GAij 

GAU' 


7 C 
S C 
PC 


N 

A (N,N) 
NR 


-"oRQErt OF a 

- INPUT MATRIX OF COEFFICIENTS (DESTROYED) 


TTffU 

GAU ! 

GAU' 


- NUMBER OF COLUMNS IN B 


TTAUf 

GAUC 

GAUC 


10 C 

11 C 

12 C 


8 (MAX, NR) - MATRIX”^? CONST 2WS”( WEPUTC tTO Y“ 5 OL U T 1 0 N 5 J GAU' 
IERR • INTEGER ERROR COOE GAUC 
a Q NORMAL RETURN GAUf 


13 C 
ltt C 
IS C 


REQUIREO ROUTINES 


- NONE 


WuT _ tfAfR|x 19 SINGULAR 


SOURCE 


TTAUr 

GAUC 

GAUC 


16 C 

17 C 

18 C 


NASA, LRC» ANALYSIS AND COMPUTATION OIVISION SUBPROGRAM 
LIBRARY 




GAUC 

GAUC 


19 C **** 

20 OIMENSION A(N,N),B(MAX,NR) 

21 NM1 s N-l 
“if (NM1 ,E0, 0) GO TO tad 


22 

23 C **** 

24 C FIND LARGEST REMAINING ELEMENT IN I-TH COLUMN FOR PIVOT 


25 C **** 


GAUC 

GAUO 


“GaUo 

GAUO 

GAUC 


26 

27 

28 


00 


100 Isl,NMl 
BIG a 0. 

To 


DO 


29 

30 


kTTTn 

TERM a DABS (A(K,I)) 

IF (TERM - BIG) 20,20,10 


WO 

GAUO 

GAUO 


utcto 

GAUO 

GAUO 


31 

32 

33 


10 


20 


BIG a TERM 
L s K 
CONTINUE 


TTA’UO 

GAiJO 

GAUO 


34 

35 

36 


30 


IF (BIG) <10,30,40 

IERR s 2 

RETURN 

IF (I-L) 50,80,50 


37 40 

38 C **** 

39 C PIVOT ROWS OF A AND B 


40 C **** 

41 50 

42 


CONTINUE 
00 60 Jsl,N 


43 

44 

45 


TEMP a A ( I , J) 

A ( I , J) s A (L, J) 
A(L,J) s TEMP 


46 

47 

«8 


60 


49 

50 


CONTINUE 
DO 70 Jsl,NR 

TEMP = B ( I , J ) 


51 70 


52 


53 

54 

55 


80 

*** * 


BCI,J) 

0(L,J) 

CONTINUE 


= B(L,J) 

TEMP 


CONTINUE 


STORE PIVOT AND PERFORM COLUMN OPERATIONS ON A AND B 


***• 


56 

57 


58 

59 

60 


IP1 8 IM 
00 1 00 IIsIPl,N 

A ("I I, I) /A (1,1) 


A ( 1 1 , I ) s 
X3 8 A ( I I , I ) 
DO 90 K s IP 1 , N 


162 


90 


A ( 1 1 , K ) s 
CONTINUE 


A ( 1 1 , K ) - X3*A ( I , K ) 

A=127 


Trsxro- 

GAUO' 

GAUO.' 

wo.' 

GAUO.' 


GAUOC 


uinjoc 

GAUOC 

GAUOC 


WO' 


GAUO 
G "'0 


TOTOC 

GAUOC 

GAUOC 


"GTffinrc 

GAUOC 

GAUOC 


Wr 

GAUO 1 ' 

GAUOC 

Wo'o 

GAUOC 

GAUOO 


TTSTTifC 

GAUOC 
_G_AUO0 
6 A'uo'c 
GAUOO 




o J 

64 


\r V K V ^ | f 

8(11, K) « B C 1 1 ) - !<Ti8 ( fTfO 

gauo 

65 

100 

CONTINUE 

GAun 

66 

c *•*» 

GAUO 

67 

c 

PEPFOR" 8ACK SUBSTITUTION 

GWO 

66 

c **** 

GAUO 

64 


00 110 IC»1,NR 

GAUO 

70 


B(N,IC) » 8(N,IC)/A(N,N) 

GAUO 

71 

110 

CONTINUE 

GAUO 

72 


00 130 KKsl,NMl 

GAUO 

73 


I = N-KK 

Q 4(j0 

74 


IP1 a IM 

GAIJO 

75 


00 130 J a l ,NR 

GAUO 

76 


SUM s B ( I , J ) 

BWO 

77 


00 120 K3lPl,N 

GAUO> 

78 


SUM s SUM • A(I,K)*0(K,J) 

GAUO' 

74 

120 

CONTINUE ' 

GT07T 

80 


8(1, J) a SUM/A(I,I) 

GAUO' 

81 

130 

CONTINUE 

GAUO- 

82 


RETURN — 

CT5TT0' 

83 

140 

CONTINUE 

GAUO( 

84 


IF (A(l,l) .EG. 0.) 00 TO 300 

GAUO' 

85 


00 150 Jal, NR “ 

G'aUoc 

86 


8(1, J) = 8(1,J)/A(1,1) 

GAUOr 

87 

150 

CONTINUE r> 

GAUOr 

88 


RETURN 

trsxnrr 

84 

300 

IERR a 2 

GAUOC 

40 

A 4 


return 

GAUOO 


91 END ' — — tmroc 


. 0 _ SUBROUTINE PNCH (A,NA,NAM,IOP) 

t C IOP(t)»0, SKIP TITLEi I0P(2)»N, SKIP l"lNE3» I0P(3)*1, TAB 25 SPACES 
2 IMPLICIT REALMS (A-w,0-Z) 

3 ..DIMENSION A(i),I0P(tt),NA(2) 

tt NRaNA(l) 

5 NCaNA(2) 

.6 _ NM4XaNR*NC 

7 NSKIP»I0P(2) 

8 IP (I0P(2) .EQ.O) GO TO 205 

.9 00.200 I*1 # NSKJP 

10 200 WRITE(7,150) 

11 150 P0RMAT(2X) 

_.12 2 05 CONTINUE 

13 IF (lOP(l).EO.O) GO TO 2 10' 

14 WRITE (7*151) NAM,NR,NC 

_15 151_EQRMAT<A«,/,2I5)_ 

16 210 CONTINUE - ~ ' — 

17 00 250 Isl,NR 

— L8 I£._CIOP(3).EQ.O) WRITE17 L 152) <A(J),J 3 I,NMAX,NR) 

19 IF (IOP(3).NE.O) WRITE (7# 153) ( A (jj, J»I,NMAX, NR) 

20 250 CONTINUE 

_21 t52_.E0.RMAT (6(lP0i3*5))_ 

22 153 FORMAT(25X,6C1P013.5)) " 

23 RETURN 

END. _ « 


rj 



1 


0 

FUNCTION OIMAG(Z) 

OJMr 


1 

»EAt*8 A(2),OIMAG 

OIMC j 


2 

cortex* 1 6 z, a 

0 1 Mr 


-- 3 _ 

EQUIVALENCE (A, 8) 

OIMr 


a 

8*Z 

OIMC 


5 

0 I M AG*A ( 2 ) 

OJMr 


6 

RETURN 

DIMfl , 


7 

ENO 

— “OIMC ] 

1 

| 




•! 






r 


o function oreal<Z) o«eoo 

t ' BEAL*® A(2),OB6AL OREOO 

2 C0*PlEX*t6 Z # 8 OBEOO 

_3 .EQUIVALENCE (A, 8) . _ OREOO 

4 " 9«Z * ‘ OREOO 

5 OBE AL*A { 1 ) OBEOO 

_ 6 RETURN __ OREOO 

7 " end OREOO 


I 





0 _ BLOCK DATA 

1 ' IMPLICIT PEAL*B (A-H,0-Z> 

2 CO*MOM/LU»eS/TITLeUO),TIL(3),NLP#LIN 

3 . CO**ON/FOPM/FMTl (2) ,FMT2<2) ,N£PR 

a C0« M 0N/T0L/EPSAM,gPS8«,IACM 

5 C0M*0N/C0NV/3UMCV,BICTCV,SEWCV,MAXSUM 

. 6 OATA LIN,NLP/1,58/ 

7 OATA NEPP,FMri/7,8HnP70t6.#8H7) / 

8 OATA TIL/** 0KA,8HCL3 PR0,8HGRAM / 

„.9 ..DATA F*T2/8H(3X, lP7D,8Hto,7) / 


10 

DATA 

EP3AM/1 .6-10/ 

11 

OATA 

EPSQM/1 ,E*10/ 

J2 

DATA 

I AC*/ 12/ 

13 

OATA 

3UMCV/1 .E-8/ 

Itt 

OATA 

RICTCV/1 ,E-8/ 

A5 

OATA 

3ERCV/1 ,E-8/ 

16 

DATA 

MAXSUM/50/ 

17 

END 
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